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1. BEGINNING BASIC 



INTRODUCTION 



ADDITION AND SUBTRACTION 



To use a computer, the user must learn a language the 
computer understands. Xerox Sigma 5-9 computers under- 
stand several languages. Most of these are meant for some 
special purpose such as the solution of scientific, engineer- 
ing, or business problems. BASIC is intended as an all- 
purpose language. Although BASIC is often called a 
"beginner's language", the computational power of a given 
BASIC program depends a great deal on the experience of 
the user. An experienced BASIC user should have no diffi- 
culty in creating very powerful programs. 

Because of its similarity to ordinary English, BASIC is a 
good language for users who are not professional program- 
mers and who may have no particular interest in the internal 
workings of the computer. Many BASIC programmers never 
see the computer they are programming, but communicate 
by means of a teletypewriter terminal at a remote location. 
To use a terminal, the user must dial the telephone number 
of a Sigma 5-9 time-sharing computer and wait for a log-on 
request to be printed on the teletypewriter. The user must 
then type his account number, identifier, and account pass- 
word (if any), followed by a carriage return. An example 
is shown below. 

XEROX CP-V AT YOUR SERVICE 
ON AT 14:32 J UN 2 8, ' 73 
LOGON PLEASE: 99 , PAT 

14:3 4 OG/28/73 99 43-2 5 [1] 

I BASIC 
VER.C01 



Suppose you want to add a series of numbers such as 27.3, 
14. 1, 6. 0, 3. 5, and 36. 25. One way of doing this is by 
placing BASIC in the "desk calculator" mode by typing a 
PRINT statement expressing the desired addition. BASIC 
will respond by computing the indicated sum and printing 
the total when a carriage return is typed: 

>PRINT 27.3+14.1+6+3. 5+36.25 
8 7.1500 



Since BASIC statements cannot be continued from one line 
to the next, this method will work only if all of the numbers 
to be added can be typed on a single line of 132 characters. 
The consequences of this restriction can be avoided by let- 
ting part of the sum be represented by a symbolic variable 
such as the letter P: 

>LET P=27. 3 + 14. 1 + 6 
>PRINT P+ 3. 5+36. 25 
8 7.1500 



The symbolic variable P could have been redefined to rep- 
resent the final sum before typing the PRINT statement 

>LET P=27. 3 + 14. 1 + 6 
>P=P+3.5+36.25 
> PRINT P 
87.1500 



As shown above, the computer types a page heading and 
then an exclamation mark to indicate that it is ready for an 
executive-level command. The user types the word BASIC 
to indicate that he wants to use the BASIC subsystem. 
BASIC then responds with a > to indicate that it is ready 
to accept input from the user terminal. 



SYMBOLIC NAMES 

BASIC recognizes symbolic names representing mathemati- 
cal variables. Such names may consist of a single letter 
of the alphabet or a letter followed by a single digit from 
through 9: 



The statement 



>P=P+3.5+36.25 



is not a mathematical equation in the usual sense. A LET 
statement in BASIC is actually an "assignment" statement 
specifying that the current value of the symbol to the left 
of the "equals" sign is to be replaced by the value of the 
expression to the right of the equals sign. Note that the 
word LET in an assignment statement is optional. 

Quantities can be subtracted by using a minus sign rather 
than a plus sign 

>PRINT 10-13 
-3 



X 
Y 
S4 



The following are not valid names in BASIC: 

XX 

Y23 

4P 



As in addition, symbols may be used to represent values in 
an expression involving subtraction: 



>LET A = 10 , B=13 

>PRINT A-B 

-3 



Beginning Basic 



Note thai - more than one value assignment may be made in 
a single LET statement, as shown above, if a comma is used 
to separate each such assignment. If the above assignment 
had been written as 

>LET £=4 + 3 , 4 = 10 

the value of B would be unpredictable, because BASIC 
executes LET statements from left to right, and A is not as- 
signed the value 10 until the second assignment of the LET 
statement is performed. 



MULTIPLICATION AND DIVISION 

Multiplication and division can be done in much the same 
way as addition and subtraction. The asterisk is used to in- 
dicate multiplication, and the slash is used to indicate di- 
vision- Thus, the product of 2 and 4 could be obtained as 
shown below. 

>PRINT 2*4 



EXPONENTIATION 

Exponentiation is indicated by use of the up-arrow operator 
(t) or the double asterisk (**): 

>PRINT 10**2 
100 



Within the same level of parenthesization, exponentiation 
takes precedence over any other indicated operation. That 
is, it is performed before multiplication, division, addition, 
or subtraction unless this would conflict with the grouping 
indicated by parentheses: 

>PRINT 2**2*3**(4-2) 

36 
> 

In the above example, the first operation performed by 
BASIC is the raising of 2 to the second power. The sum of 4 
and -2 is then computed and the quantity 3 is raised to this 
power. The final operation before printing is the multipli- 
cation of 4 (the square of 2) by 9 (the square of 3). 



Parentheses can be used to group two or more quantities: 



>PRINT 3*(4+5) 
27 



Without the parentheses, the above PRINT statement would 
have produced the value 17 rather than 27, because BASIC 
would then assume that the value 5 was to be added to the 
product of 3 and 4. It would not be possible to avoid the 
use of parentheses by a rearrangement of the above expres- 
sion to put the addition to the left of the multiplication, 
as in: 

>PRINT 4+5*3 

This statement would produce the value 19 rather than the 
desired 27, since BASIC performs any indicated multiplica- 
tion or division before doing addition or subtraction unless 
the order of precedence is indicated explicitly by means of 
parentheses. 

Nested parentheses are evaluated from the innermost to the 
outermost: 

>PRINT 2*(3 + 4*(5 + 6) )/7 
13.4286 



In the above example the "innermost" subexpression is 5+6. 
This sum is evaluated first and the result is multiplied by 4 
and then added to 3 before the multiplication by 2 is per- 
formed. The final operation before printing is the division 
by 7. Note that the result is rounded to 6 significant digits . 



INDEXED REPETITION 

Many applications of BASIC require a series of operations 
to be performed more than once. To make this as easy as 
possible, two special statements are provided; FOR and 
NEXT. The FOR statement specifies the conditions under 
which the repetition is to be done and the NEXT statement 
indicates the end of the series of BASIC statements that is 
to be repeated. FOR and NEXT must be used in the "com- 
pile and execute" mode rather than the desk calculator 
mode. For this reason, each line of the program must begin 
with a unique number ranging from 1 to 99999. Line num- 
bers need not be contiguous, but lines are executed in as- 
cending order. Many BASIC programmers prefer to begin 
each program with line 100 and make each line number a 
multiple of 10, allowing room for changes and additions to 
the program at a later time. 

In the program shown below, FOR and NEXT statements are 
used to cause BASIC to print three lines. Note that RUN is 
typed following the program rather than preceding it. 



>10 


FOR 1=1 


TO 


3 


>20 


PRINT I 






>30 


NEXT I 






>RUN 






10 :: 


12 JUN 


07 


RUN2BAA. . 


1 








2 








3 










3 HALT 





In the above example, the indexed variable "I" in the FOR 
statement is assigned an initial value of 1 (by the number 1 
following the equals sign). Instead of the letter I, any 
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letter of the alphabet could have been used, but the letters 
I through N have become traditional in FOR statements. 
When the NEXT statement is executed following the print- 
ing of the first line, the value of I is incremented by 1 
automatically and the loop is executed again. Note that 
the FOR statement initiates execution of the loop but is not 
a part of it. When the NEXT statement is executed follow- 
ing the printing of the second line, I is again incremented 
by 1 and the loop is executed for the third time. When 
the NEXT statement is executed following the printing of 
the third line I is not incremented, since the limiting value 
of 3 has been reached, and the loop is not executed again. 
Since 4 is greater than 3, the limiting value following the 
word TO, the loop is not executed again. The message 30 
HALT indicates that line 30 was the last line executed in 
the program. 

Often in programming FOR and NEXT loops, one may fake 
advantage of the fact that the indexed variable changes in 
value as the loop is repeatedly executed. This is illustrated 
by the following example. 



>10 


FOR J=l 


TO 


4 


>20 


PRINT 1**3 




>30 


NEXT I 






>RUN 






10 : : 


13 JUN 


07 


RUN2BAA 


1 








8 








27 








64 










30 HALT 





Although the value of K varies as the above program is exe- 
cuted, this does not affect I, since the initial value of I is 
determined only when the FOR statement is executed and 
the loop is first entered. Note the use of an optional form 
of the LET statement, without the word LET, in line 40 of 
the program. 

You may use a LET statement to alter the value of the 
indexed variable within a loop, in addition to the incre- 
ment added automatical ly whenever the NEXT statement 
is executed. 



>1 


FOR 1=1 


TO 


10 


>20 


LET I-- 


--2*1 




>30 


PRINT 


I 




>40 


NEXT I 






>RUN 






10:19 JUN 


07 


R 


2 








6 








14 










40 HALT 





RUN2BAA 



In the above program, the initial value of I is 1, as specified 
by the FOR statement. The LET statement doubles this value 
and the NEXT statement adds 1 to it. Thus, I has the value 3 
at the beginning of the second execution of the loop and 7 
at the start of the third execution of the loop. When the 
NEXT statement is executed for the third time, I is not in- 
cremented because the limit of 10 has been exceeded, and 
loop execution stops. 



In the above example, the cube of the indexed variable is 
printed each time the loop is executed. 

The values of symbolic variables used within a loop can be 
changed during execution of the loop,, as illustrated by the 
following program which prints the first 8 terms of a 
Fibonacci series. Note that the statements within the loop 
are typed indented, to make the extent of the loop more 
readily apparent. This optional practice is especially 
recommended for nested loops. 

>10 LET J=0, K=l 

>20 FOR I=K TO 8 

>30 PRINT J 

>40 M=J, J = K, K=K+M 

>50 NEXT I 

>RUN 



10 

1 
1 
2 
3 
5 



14 



JUN 07 RUN2BAA. 



13 



5 HALT 



PRINT FORMATTING 

The statement 

> PRINT 
causes BASIC to print a single blank line. The statement 

> PRINT X 

causes the value of X to be printed, beginning in column 2. 
Column 1 is reserved for a possible minus sign. The statement 

> PRINT X,Y 

causes BASIC to print the value of X, beginning in column 2, 
and the value of Y on the same line, beginning in column 16. 

If closer spacing is wanted, a semicolon can be used in 
place of a comma. The statement 

>PRINT X;Y 

causes BASIC to print the value of X, beginning in column 2, 
followed by the value of Y with 3 or 4 columns separa- 
ting the two, so that the value of Y will begin in an 
even-numbered column. 



Print Formatting 



If a value is negative, a minus sign precedes it. 

> PRINT X;Y;Z;NH 
5 -10 300 20.5000 



A combination of formats can be used. 



>PRINT X,Y;Z 
5 -10 



300 



A TAB expression may contain symbolic as well as literal 
values, allowing great flexibility in line format. This 
capability is very useful in programming for graphic output. 

For example, the following program produces a graphic plot 
of a damped sine wave: 

>100 X=X+.7 ,K=EXP(-X/15 ) 

>110 PRINT TAB(15+±5*K*SIN(X) ) " * " 

>120 IF X<15 THEN 100 

>RUN 

10:43 JUN 07 RUN2BAA . „ . 



If the user does not want the first value to print in column 2 
he can use a comma or semicolon following the word PRINT. 



> PRINT ,X;Y 



-10 



The statement 

>PRINT 'THESE WORDS' 
could be used to print THESE WORDS beginning in column 1. 

TABBING 

The TAB function is used in PRINT statements to advance 
the output device to a specified column. For example, the 
statement shown below causes the teletypewriter to advance 
to column 12 and print the word HERE. 

>PRINT TAB (12)" HERE" 
HERE 



Note that HERE is a literal text string, identified as such 
by enclosure in quotes. Either single or double quotes 
(i.e., 'THIS' or "THIS") may be used to enclose a literal 
text string. 

A symbolic or literal value may be used in the same PRINT 
statement as a literal text string (either with or without a 
TAB expression). However, since an expression must not 
follow another expression immediately, a symbolic or lit- 
eral value must not be used next to a TAB expression. To 
avoid this difficulty, one can use an empty text string 
(e.g., "") to separate two expressions in a PRINT statement. 

>PRINT TAB(6)""X" APPLES" 
5 APPLES 



Note that column 6 will be blank only if X is positive. 

If a comma or semicolon is used to separate a TAB expres- 
sion from a following expression as in the statement 

>10Q PRT-JT TA-1 0"> ) ,X 

BASIC will perform the TAB function but will assume that 
the punctuation is only being used as a separator. 



120 HALT 



In this example, the EXP intrinsic function returns the value 
of e (the quantity 2.7183. . . ) raised to the power of the 
argument. The IF statement causes BASIC to return to 
statement 100 unless the current value of X is equal to or 
greater than 15. 

DATA INPUT FROM A TERMINAL 

The INPUT statement is used to solicit input via the user 
terminal. A question mark is printed by BASIC to prompt 
the user. 

>100 PRINT 'ENTER LENGTH AND WIDTH' 

>110 INPUT L ,W 

>12 PRINT 'AREA='L*W 

>RUN 

10:46 JUN 07 RUN2BAA. . . 

ENTER LENGTH AND WIDTH 

? 5 , 10 

AREA= 5 

120 HALT 
> 

In the above example BASIC prints a request to type values 
for length and width. The values 5 and 10 are typed fol- 
lowing the prompt character. Note that the comma after 
the value 5 is optional. A single blank would be sufficient 
to separate the two values. 



Tabbing/Data Input from a Terminal 



EIRROR MESSAGES 

BASIC messages to the user are explained in Chapter 6. 
Most of these messages inform the user of a syntax error in a 
program line, a logical error in program structure, or a prag- 
matic error in program execution. Syntax errors are detected 
when a line is typed, logical errors are detected at compile 
time, and pragmatic errors are detected at run time. 

If the user types 

>100 X=2Y 

BASIC prints the message 

100 BAD FORMAT 



Note that line 116 above assigns a six-character literal text 
string to the name Z. Z then denotes an alphanumeric 
constant, or "aconst", as discussed in Chapter 2. 

PROGRAM MODIFICATION 

A line in a program can be changed by retyping the entire 
line. A new line can be added to a program by typing it, 
giving it any unused line number within the desired area of 
the existing program. 

>100 R=12 , Y=-12 „ 5 

>110 Y=y+1, X=SQR(R\2-Y\2 ) 

>120 PRINT TAB{ 36-Z) '* 'TAB(36+X) '* » 

>130 IF J<11.5 THEN 110 



on the following line. The user can correct the line by 
retyping 

>100 X=2*Y 

The program shown below contains a FOR statement without 
a corresponding NEXT statement. 

>100 FOR 1=1 TO 5 
>110 PRINT ,'X= , Ii , Y='I**3 
>120 END 
>RUN 

10:49 J UN 7 RUN2BAA . . . 
MISSING NEXTSTMT 



The user could add a line between 1.10 and 120, using any 
line number from 1 1 1 through 1 19. 

>115 X=1.1*X 



If the user wanted to combine lines 1 10 and 1 15, in the 
above example, he could do so by retyping line 1 10 and 
deleting line 115 by typing the line number followed by 
a carriage return. 



>no y=y+i 

>115 



J=l ,1*SQR(R\ 2-Y+2) 



When the above program is compiled, BASIC prints the 
message 

MISSING NEXTSTMT 
The user can correct the program by typing 

>115 NEXT I 

and then recompiling by typing another RUN command. 

In executing the following program, a divisor becomes zero, 
causing BASIC to print the message shown below. 



>100 FOR X=l TO 2 

>110 FOR Y=l TO 4-Z 

>120 Z=l/(X+2+3*X*Y-X-Y+2) 

>130 PRINT X,Y,Z 

>14 NEXT Y 

>15 NEXT X 

>RUN 

10:52 JUN 07 RUN2BAA... 

1 1 

1 2 



500000 
500000 



120 DIV BY ZERO 



The user can correct this by typing 



>115 IF X+2+3*X*I-X-Y+2<>0 THEN 120 
>116 Z=" INF." 
>117 GOTO 130 



Other methods of program modification are discussed in 
Chapter 4. 



SAVING A PROGRAM 

To save a program for future use, the SAVE ON command 
can be used: 

>SAVE ON FILENAME 



In the above example, the current contents of the text 
editing area are saved in a file named FILENAME if a file 
does not already exist with that name. If a file with that 
name does exist, the save does not occur and an error mes- 
sage is produced. 

If the user wants to unconditionally save a program for fu- 
ture use, he can use the SAVE OVER command: 



>100 PRINT "HELLO, THIS IS 
>SAVE OVER FILENAME 



FILENAME" 



In this example, the current contents of the text editing 
area are unconditionally saved in a file named FILENAME. 
If a file with that name already exists, it is replaced with 
the new file information. 

File names may consist of up to 11 characters. They must 
not begin with a single quote (') or double quote (") char- 
acter and must not contain blanks, unless the entire file 
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name is delimited by quotes. Examples of valid file names If CLEAR is not used the loaded program will be combined 

are with whatever happens to be in the text editing area. After 

>SAVE OVER "FILE NAME" a P ro 9 ram ^ as been loaded it can be executed by giving a 

>SAVE ON ELEPHANTINE R UN command 

>SAVE OVER ?a n /#+! 

>SAVE ON 2+2=4 

>SAVE OVER THIS (2) 

> > CLEAR 

>LOAD FILENAME 
>RUN 

I Ainitin tun niimimn . A.np n maar... ' 11:14 JUN 07 FILENAME,.,, 

LOADING AND RUNNING A SAVED PROGRAM hello, this is 'filename*. 

Before loading a program, it is good practice to use the 100 HALT 

CLEAR command to clear the text editing area. > 



Loading and Running a Saved Program 



2. ELEMENTARY FEATURES OF BASIC 



In the following chapters, certain conventions have been 
adopted for defining the BASIC commands. Capital letters 
indicate command words that are required in the literal form 
shown. Lowercase letters are figurative representations of 
constants, step numbers, etc. Command parameters enclosed 
by braces (| J-) indicate a required choice. Parameters en- 
closed by brackets ([]) are optional. Ellipsis marks (...) 
signify optional repetitions of the preceding bracketed 
parameter. BASIC recognizes the period as a decimal 
point, not as a terminator. 

ELEMENTS OF A BASIC PROGRAM 



2. Positive numbers are preceded by a blank, negative 
numbers by a minus sign. 

3. If the number is a whole number (integer) whose mag- 
nitude is less than 1,000,000,000 (10 9 ), it is printed 
in from 1 through 9 positions after a blank or a minus. 

4. If the number is nonintegral or its magnitude is greater 
than or equal to 10 (for example, -10.5, .5, 123.45, 
or 10 ), its most significant part will be rounded to 6 
or 16 digits according to the PRC function and will be 
treated as fol lows: 



There are a number of elements common to most BASIC 
programs. These are: line numbers, simple constants and 
variables, arithmetic operators, expressions, and intrinsic 
functions. In addition to these, BASIC programs involving 
text manipulation often use alphanumeric constants as well 
as string literals, variables, and expressions. String vari- 
ables and expressions are not permitted in BTM BASIC. 

LINE NUMBERS 

Every line in a BASIC program must begin with a unique in- 
teger. Line numbers may range from one through 99999 but 
need not be contiguous, allowing for insertions. Lines are 
executed in ascending sequence, except where the sequence 
of execution is modified by branching or looping. Leading 
zeros are permitted in line numbers but are not required. 

NUMBER RANGES 

Because BASIC converts all input values to an internal 
double precision floating-point binary format, the appear- 
ance of input values and output values may differ due to 
rounding during input conversion. An example of this round- 
ing is shown below. 

>Z=1 11111111111111 
> PRINT X 

1 . lllllff+14 
> 7=1/1000 
> PRINT Y 

1.0000 0E -03 
>Z=3£ , 4 
> PRINT Z 

30000 



INPUT 

BASIC handles input numbers within a range of 5. 398* 10 1 -79 
through 7. 237* 10 1 75, and zero. Up to 16 significant deci- 
mal digits can be input. 

OUTPUT 

Output numbers are printed in fields of varying widths ac- 
cross the page according to the following rules. 

1. Numbers are left-justified in their fields. 



a. If, after rounding, the absolute value of the num- 
ber is greater than or equal to 0. 1 but less than 
10 6 or 10 16 , the number is printed, in 8 or 18 
print positions, in fixed-point notation; that is, its 
form will be a blank or minus, a maximum of 6 or 
16 integer digits, followed by the decimal point 
and a maximum of 6 or 16 digits. 

b. If, after rounding, the absolute value of the num- 
ber is less than 0.1 or greater than 10" or 10' , 
the number is printed in floating-point (scientific) 
notation; that is, its form will be a blank or minus, 
the most significant integer digit, a decimal point, 
5 or 15 decimal digits, followed by the letter E, a 
plus or minus, and a 2-digit exponent. 

PRECISION CONTROL 

In the editing mode, output precision can be controlled by 
means of the ENTER BASIC command (see Chapter 4). 

Output precision can also be controlled by use of the PRC 
intrinsic function in a PRINT statement. Used by itself or 
embedded in a series of other PRINT elements, PRC(l) sets 
the output precision to 16 significant figures. This precision 
remains in effect until reset to the default value of six by a 
PRC(0) or an ENTER BASIC command. An example is shown 
below. 

>LET 7=1/30 
>PRINT I 

3 . 33333S-02 
> PRINT PRC(l) ,1 

3 . 33 33 33 333 33 3 3 33^- 2 
> PRINT I 

3 . 333 33 33 33 333 3335-0 2 
> PRINT PRC(O) ;7 

3 . 33333£"-02 



SIMPLE CONSTANTS 

A simple constant (that is, a nonvarying quantity) is 
composed of digits that stand alone, have an embedded 
decimal point, or are preceded or followed by a decimal 
point. For example, 2, 7.8, .5, and 12 are simple con- 
stants in BASIC. 
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Simple constants maybe modified by floating-point notation, 
as in 2. 5E-15, where the E denotes that the number that pre- 
cedes it is to be multiplied by 10 to the plus or minus power 
following the E. Accordingly, thenumber 2.5E-15 is real ly 
the number .0000000000000025. The plus sign is optional 
for positive powers. 

SIMPLE VARIABLES 



be used to obtain three significant digits (with rounding) as 
in the following example: 

>50 LET S=INT( (A*100)+.5 )/100 



When statement 50 is executed, S is assigned the value 
2.68. 



A simple variable is denoted either by a single letter or by 
a letter and a digit from through 9. This convention al- 
lows the programmer a total of 286 simple variables. For 
example, A and W3 are simple variables. Note that if the 
letter-and-digit combination is used, the letter must pre- 
cede the number. 

ARITHMETIC OPERATORS 

BASIC uses common mathematical symbols to denote arith- 
metic operations. These arithmetic operators are shown in 
Table 1 below. Note that either the up-arrow (or circum- 
flex) or double asterisk is allowed as an exponentiation op- 
erator. The use of the double asterisk is convenient for 
batch operation, since the up-arrow requires an overpunch 
if cards are used as the input medium. 

Table 1. Order of Arithmetic Operations 



Order 


Symbol 


Explanation 


1 
2 

3 


t or ** 
* and / 
+ and - 


Exponentiate 
Multiply and Divide 
Add and Subtract 



The table also shows the order of precedence of the various 
operations. When no operation takes precedence over 
another, the computer will perform operations from left to 
right. The order of operations may be altered by use of 
parentheses. Use of parentheses is advised if the sequence 
of operations seems questionable. 

Note that an operator of order 1 or 2 may be followed by 
an operator of order 3, but that no other cases of consecu- 
tive operators are permitted. 

INTRINSIC FUNCTIONS 

BASIC provides a total of 34 intrinsic functions, 15 of which 
may not be used in BTM BASIC. The functions are listed in 
Appendix C. When a function is used in a statement, the 
three-letter function name must be followed by an expres- 
sion or value enclosed in parentheses. This expression or 
value is called the "argument" of the function. The value 
of the argument is either used directly in the function cal- 
culation, or signals the computer to perform the calculation 
in a predetermined manner. The purpose of most of the 
functions is obvious and familiar. The INT function is often 
used to acquire the integer part of a calculated number. 
For example, INT(A), where A is computed to be 2.675, 
would produce the number 2. The INT function may also 



ARITHMETIC EXPRESSIONS 

The term "expression", often abbreviated "expr", represents 
a simple constant, simple or subscripted variable (see Chap- 
ter 3), or function reference that may stand alone or may be 
used in any combination when separated by the symbols for 
addition, subtraction, multiplication, division, and exponen- 
tiation. The components may also be enclosed by parenthe- 
ses. The symbols + and - may also be the initial character 
of an expression and may immediately follow a left paren- 
thesis. Some typical expressions are 

A+l 
(B-X)/D 



and 



(2+X)+SIN(Y) 



STRING LITERAL 

A string literal in a BASIC program is any sequence of text 
characters, including blanks, enclosed by single or double 
quotes. If a string literal is enclosed by single quotes, a 
single quote must not appear in the string. A parallel rule 
applies to the use of double quotes. Examples of string 
literals are shown below. 

>100 PRINT 'THIS IS A STRING LITERAL 1 
>110 PRINT "THIS IS "ANOTHER ONE'" 
>120 PRINT 'AND THIS IS "A THIRD"' 



ALPHANUMERIC CONSTANTS 

Besides the simple constants previously mentioned, BASIC 
allows symbolic names such as X, R, or K2 to be assigned 
string literals of up to six characters. Such symbols are then 
called "alphanumeric constants" or "aconsts". For example, 

>100 A- 'ACONST 1 
>110 Z=' SPACE3' 
>120 X6= ' X RAY' 



An "aconst value" can be assigned via a LET, INPUT, READ, 
GET, MAT READ, MAT INPUT, or MAT GET statement and 
can be tested, for equality or inequality only, via an IF 
statement. 



>100 IF A=' ALPHA' THEN 200 
>110 IF A<>' OMEGA' THEN 30 
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An aconst value may occur in unquoted form as an ele- 
ment of a DATA statement or in the response to an INPUT 
request. If an element begins with a digit, plus or minus 
sign, or decimal point it is assumed to be a number. If 
it starts with any other character, or is enclosed in quotes, 
it is assumed to be an aconst value. 



Example: 

>100 DATA 5 



'FIVE' 



The first and third elements in the above example are 
treated as numbers. The second and last are treated as 
aconst values. 

Similar rules apply to elements entered in response to an 
INPUT request, except that in CP-V BASIC if the input is 
assigned to string variables (see below) all elements are 
interpreted as strings. 



STRING SCALARS (CP-V Only) 

String scalars are denoted by a letter and dollar sign. A 
string scalar consists of up to 132 characters comprising a 
single string. A string vector is a one-dimensional array, 
each element of which is a single string. A string matrix 
is a two-dimensional array of such elements. String vec- 
tors and matrixes are discussed in Chapter 3. To avoid 
conflict, the same letter must not be used to designate a 
string scalar and a string (or numeric) array. 

Examples of string scalars are 

MOO i4$=M STRING 1 

>110 B$=» ANOTHER STRING 1 



J 



LET statements have the general form 

[line] [LETjvariable[, variable]. . . = expression — 

' — [, variable^, variable]. . . = expression] 
where 



variable is either a simple variable, an alphanu- 

meric constant, or a string scalar. 

expression is an arithmetic expression (see 'Arith- 

metic Expressions", above) if the variable is a 
simple variable. For alphanumeric constants, ex- 
pressions are either string literals of up to six 
characters or else string expressions assigning 
strings of upto six characters (see "Character String 
Manipulation", Chapter 3). 

For string scalars, expressions are either string ex- 
pressions or string literals of up to 72 characters 
or the limit set by a SET S command (see "SET", 
Chapter 4). Strings of excess length are truncated 
to the maximum permitted. 

Arithmetic operations can be performed by use of the LET 
statement . 

>100 A=A+1 
>110 5 = /4 + 2 



Lines 100 and 1 10 above could be combined into a single 
statement. 

>100 A=A+1, B = Af2 



String scalars can be compared for relative magnitude as 
wel I as equality. 

>100 A$= 1 THIS 1 

>110 B$= 1 THAT 1 

>12 IF A$=B$ THEN 2 00 

>130 IF A$>B$ THEN 3 00 



In this example, the comparison of A$ and B$ fails on the 
third character. Thus, since the character "A" is lower in 
the EBCDIC code than "I" (see Appendix H) a branch to 
line 300 is taken. 



ASSIGNMENT STATEMENTS 

This section discusses the assignment of simple variables, 
alphanumeric constants, and string scalars. The assignment 
of values to vectors and matrixes is explained in Chapter 3. 

LET The LET statement replaces the current value of the 

,variable(s) on the left of the equals sign with that of the 
expression on the right of the equals sign. 



Such serial assignments are executed from left to right. 
Thus, if A is initially 2 then B will be assigned a value 
of 9. Parallel assignments can also be made. 

>110 A,B,C=D*E 
>110 F,G=F+1 



Note that line 1 10 above is equivalent to 

>110 F=F+1, G=F 
> 

Other examples of LET statements are shown below, 

>100 P,A1 ,Q3 = *4*ATN( 1 ) , A = l, 5 = 5 

>110 C^'STRING 1 

>120 Z?$=M LONG STRING 1 

>130 £$ = C, F = Z)$ 



In executing line 130 above, aconst F is assigned the string 
A LONG because of the aconst length limitation. 



Assignment Statements 



BRANCHING 



ON 



GOTO fakes the forr 



Normally BASIC executes program lines in ascending order, 
beginning with the lowest numbered line. The statements 
discussed below cause BASIC to alter the normal order of 
execution, either conditional ly or unconditional ly. (See 
also "Branching to a Subroutine", in Chapter 3.) 



IF . . . THEN The IF . . . THEN statement provides a 

conditional branching capability. If the test condition 
specified in the IF . . . THEN statement is true, then the 
next line executed is that specified in the IF . . . THEN 
statement. Otherwise, the statement following the IF .. 
THEN statement in the normal sequence is executed. 



[GOTO].. 



[line]ON exprj T FN |line[, line] 



The form of the IF 



THEN statement is 



IV ">IC , l THEN 1 I- 

Lime., IF expr operator exprj _ Tn f hr 



The condition to be tested is specified between the IF and 
the TH EN (or GOTO) of the statement. The line to which 
BASIC is to branch on a true test is specified after THEN 
(or GOTO). An expression may be a simple constant, 
variable, alphanumeric constant, literal string or string 
scalar, or a compound arithmetic expression. The oper- 
ators that may be specified are given in Table 2. 

Table 2. Condition Operators 



Operator 


Explanation 


= 


Equal to 


>< or <> 


Not equal to 


< 


Less than 


> 


Greater than 


< = or = < 


Less than or equal to 


> = or = > 


Greater than or equal to 



Examples of IF ... THEN statements are given below: 

>100 IF X<2 THEN 120 

>110 IF Y= ' EUREKA 1 THEN 130 

>120 IF A$>Z$ THEN 140 

>130 IF SIN(X+J)<=COS(X*K) GOTO 100 

>140 IF B=C THEN 110 



ON . . . GOTO If many different branches are to be 

taken according to the value of some expression, the use 
of a separate IF . . . THEN statement (see above) for each 
branch becomes unwieldy. To overcome this inconven- 
ience, BASIC provides the ON . . . GOTO and GOTO . . 
ON statements. 



where 

expr is any arithmetic expression. 

Iine[, line]. . . is a list of program line numbers. 

When the statement is executed, the expression is evalu- 
ated and, if necessary, truncated to an integer. If the re- 
sulting value is I, a branch is made to the first line 
specified in the list. If the value is 2, a branch is made to 
the second line specified, and so on. If the value is less 
than 1 or greater than the total number of lines specified 
in the list, no branch is taken and the next statement in the 
normal sequence is executed. 

ON . . . GOTO may not be used as a direct statement in 
BTM BASIC. 

Example: 

>100 ON SGN(X)+2 GOTO 150,250,200 



In the above example, if X is negative a branch to line 150 
is taken, if X is a branch to line 250 is taken, and if X is 
positive a branch to line 200 is taken. 



GOTO ... ON This statement is identical in opera- 

tion to ON ... GOTO (see above) and may not be used 
as a direct statement in BTM BASIC. It has the form 

[line] GOTO line[, line]. . . ON expression 



Examples: 

>100 GOTO 140,160,180 ON Y 
>110 GOTO 200,250,300 ON Z+3 



GOTO The GOTO statement can be used to alter the 

normal sequence of program execution unconditionally. The 
GOTO statement has the form 

[line] GOTO line 

GOTO is generally used in conjunction with a conditional 
branch such as IF ... THEN (see above). An example is 
shown below. 



>100 IF TIM(1)<>12 THEN 100 
>110 PRINT ' LUNCHTIME' 
>12 IF TIM(1)=12 THEN 120 
>130 GOTO 100 



10 Branching 



DATA OUTPUT 



PRINT FORMATS 



PRINT The PRINT statement tells the computer to print 

out the current value of a variable, the results of a calcu- 
lation/ a message, or any combination of these items. The 
output is produced on a line printer, typewriter, card punch, 
magnetic tape, Teletype, or other device. The PRINT 
statement has the general form 



r.. -i [PRINT] . . , . , . . , 

[Jinejj . f expression(s), or text stnng(s) with 



C 



Zl 



-commas or semicolons 



where the word PRINT is usually followed by the name of 
the item that is to be printed. Notice that a semicolon can 
be used in place of the word PRINT; this abbreviation is 
especially useful in the desk-calculator mode. Two sample 
print statements are 

>60 PRINT XI ,X2 

>7 ; 'NO REAL ROOTS' 



Punctuation marks in the PRINT statement (commas and 
semicolons) define the desired appearance, or format, of 
the printed output. The punctuation marks tell the print 
device at which position to start printing. BASIC has two 
types of output format, regular and packed. Regular for- 
mat is specified by using commas to separate elements in 
the PRINT statement; packed format is specified, by using 
semicolons. 



Regular Format. When the regular format is specified by 
using commas to separate the elements in the PRINT state- 
ment, the print line is thought of as consisting of a series 
of 14-character fields. Each comma causes a shift to the 
next field. For example, 

>4040 PRINT A ,B ,C 



Line 60 will print out the calculated values of the variables 
XI and X2. Line 70 will cause the message enclosed by 
single quotation marks to be printed out. Note that a string 
of text must be enclosed by either single or double quota- 
tion marks. Blanks may be used within the string and will 
be reproduced in the output as presented. More than one 
text string may be present in a PRINT statement. Each 
separate string, however, must be enclosed by quotation 
marks. 

A PRINT statement may contain a reference to an intrinsic 
function. For example 

>1220 PRINT SQR(X) 

will calculate and print the square root of the variable X, 
while 

>1230 PRINT X;SQR(X) 
> 

will print the current value of the variable, followed by its 
square root. 

PRINT can also contain variables, providing that the 
variables have been defined in statements preceding the 
PRINT. The following statement is an example of this 
use of PRINT. 

>1250 PRINT B*B-H*A*C 

Similarly, the statement 

>1260 PRINT (7/8) +14 

will give the value of the fraction 7/8 raised to the 14th 
power. 

The word PRINT, used alone in a statement, causes the 
printer to advance the paper by one line. An example is 
shown below. 

>45 PRINT 



will cause the values of A, B, and C to be printed at 
14-character intervals, as in 



When the regular format option is specified, at least two 
blanks follow the last printed character. In some cases, 
this spacing may cause an extra field shift. 



Packed Format. Packed format, which is specified by using 
semicolons to separate the elements in the PRINT statement, 
causes the printed output to be compressed on the page by 
reducing the spacing between fields. Each semicolon 
causes a field shift that is either two or three positions in 
length, so that the shift reaches an even-numbered position. 
For example, statement 4040 above could be written as 

>404Q PRINT A;B ; C 



with the resultant output of 

15 4 



Additional Format Considerations. It is important to note 
the difference between the TAB function and the output 
format characters. TAB causes output to be printed at a 
specified position, and is most useful in providing columnar 
output. The output format characters (, and ;) cause the 
output to be printed at intervals that depend on the number 
of preceding (printed) characters. 



IF a PRINT statement terminates with a TAB to a column to 
the left of the current print position, e. g. , TAB(O), the 
line is not printed until a subsequent PRINT is executed. 
This allows effective continuation of PRINT statements, 
except in the direct mode. 
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An expi . ssion may not follow another expression in a PRINT 
statement, but a text string literal may be used anywhere. 
Thus, a null string (two quotes) may be used to separate 
two expressions. For example, 

>5 PRINT A(1)""S(2) 



If a PRINT statement ends with a punctuation mark, the 
appropriate field shift takes place and subsequent printing 
starts at that point on the same print line. Otherwise, sub- 
sequent printing starts on a new line.^ All printing is left- 
justified in its field. If a field shift places a field in a 
position to extend beyond the last allowed print position, 
a new line is generated and the field is printed on the new 
line. 

This procedure is modified when printing text. If a text 

string overflows the last position, the string is truncated 

at that point and the remainder is printed on the next 
line. 

Text strings may extend beyond any number of field 
boundaries. If neither a comma nor a semicolon appear 
on either side of a text string in a PRINT statement, no 
spacing will occur before or after the string in the printed 
output. 



Both of these statements perform the same action, of course. 
The parameters of line 50, that is, the current value of X, 
the square root of X, and the text string 'SQ. ROOT', will 
be embedded, from left to right, in the designated fields of 
line 75 (a field is a group of character positions that is 
treated as a distinct unit). Note that commas are used to 
separate parameters in PRINTUSING. 

The Image statement (identified as such by a colon after 
the line number) complements the PRINTUSING statement 
in that Image statements depict the final printed appearance 
of PRINTUSING parameters. An Image statement has the 
form. 

line :["s and/or characters to 132 max.] 

where the characters that follow the required colon are 
governed by the following rules. 

1 . Each digit position is designated by a " symbol . Also, 
text strings to be derived from the PRINTUSING state- 
ment are indicated by * symbols. For example, the 
statements 

>50 PRINTUSING 7 5 , X ,SQR( X ) , ' SQ . ROOT' 
>75 -IF X=f, # IS ITS ######## 



Format characters may be used alone in PRINT statements, 
or they may be used in any number and combination to 
cause appropriate field shifts. 



PRINTUSING and :(lmage) As an alternative to use of the 

PRINT statement (see above), BASIC provides another 
method of specifying the format of printed output. This 
method makes use of a PRINTUSING statement and an 
associated Image statement. The PRINTUSING statement 
contains parameters to be inserted into the print positions 
specified by the referenced Image statement. 

PRINTUSING takes the general form 

r.. -. [PRINTUSING1 .. r . , . 
[JineJ j. iic- 1 Kip f 1 1 ne[, expression (s) or 



1;USING 



text string(s)] 



will generate the following output (assuming X is cur- 
rently 4): 

IF X=4, 2 IS ITS SQ, ROOT 



2. If a field is preceded by a plus sign, positive values 
are preceded by a plus sign and negative values by a 
minus sign. On the other hand, if a field is preceded 
by a minus sign, positive values are preceded by a 
blank, negative values by a minus sign. For example, 
the statements 

>5 :-##, -##, +##, +##, ## 

>14 PRINTUSING 5 , - 1 9 , + 2 , - 2 1 , 2 , 9 9 

will generate 

-19 , 20, -21 , +20 , 99 



where the line number that follows the command word desig- 
nates the Image statement into which this PRINTUSING's 
parameters will be embedded. Notice that a semicolon can 
be substituted for the word PRINT. Two sample PRINTUSING 
statements are shown below, one with the word PRINTUSING 
and the other with the abbreviated form ;USING. 

>50 PRINTUSING 7 5 , X, SQR( X ) , ' SQ . ROOT' 
>50 ; USING 7 5 , X , SQR( X ) , ' SQ . ROOT' 



If a field is preceded neither by a plus sign nor by a 
minus sign and the associated value is negative, a 
minus will be printed in the first position and any re- 
maining positions of the field will contain asterisks. 

The decimal point is denoted by a . symbol. For ex- 
ample, the statements 



>3 :#.# AND -.## ALSO + ###. 
>23 PRINTUSING 3, 1.2, -1/4 



100.435 



In CP-V BASIC, a line ending with a punctuation mark 
is not printed until execution of the next PRINT state- 
ment that does not end with a punctuation mark. 



will generate 

1.2 AND -.25 ALSO +100 
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If a field contains a decimal point, the user may 
also append four trailing exclamation points to 
signify floating-point notation. (If more or fewer 
than four exclamation points are shown, they will 
be printed literally in the output.) BASIC deter- 
mines the need for floating-point notation according 
to the rules given for the PRINT statement. The 
four !'s provide for a letter E, a plus or minus sign, 
and a two-digit exponent. Note that a decimal 
point may be placed anywhere in the field, but that, 
on printing, it will follow the first digit. The position 
of the floating-point notation remains unchanged. 
For example, the statements 

>98 PRINTUSING 99, 1/30, 2/30 

>99 -.VALUES ARE #.##J!!I AND +###.! II I 



will generate 

VALUES ARE 3.332-02 AND +6 o 67£'-02 



5. Except for the % period, and ! symbols, characters 
that follow the colon will be printed exactly as shown, 
with spacing as provided by blanks in the Image 
statement. 

6. Te;xt strings may be inserted in fields containing deci- 
mal points or specifying floating-point notation. In 
addition, if the field is preceded by an algebraic^ 
sign, its position will be preempted by the text string. 
For example, the statements 

>11 :THE VALUE IS -#.#### 
>4 7 PRINTUSING 11, 'TOO BIG' 



will generate 

THE VALUE IS TOO BIG 



2. If an Image field is larger than necessary, the printed 
output will show blanks preceding expression values 
and following text string values up to the required 
number of positions in the field. 

3. If a PRINTUSING statement specifies more values 
than there are fields in the complementary Image 
statement, the Image statement is repeatedly used 
until ail PRINTUSING values are printed. For ex- 
ample, the statements 

>8 : /V = ##### 

>90 PRINTUSING 8, 1, 4, 90, 81777 



will generate 

/!/= 1 

N= 4 

N= 9 

#=81777 



If a PRINTUSING statement specifies fewer values 
than there are fields in the complementary Image 
statement, the printout will be terminated at the 
first unused field of the Image statement. For example, 
the statements 

>9 :######## CASES ##.# RESULTS 
>103 PRINTUSING 9, 'NO MORE 1 



will generate 

NO MORE CASEL 



Whenever a PRINTUSING statement is executed, printing 
starts at the left of a new line. Values are rounded approx- 
imately prior to printout. Although the programmer may 
specify numeric fields greater than 16 characters in length, 
only 16 significant digits are output (with trailing zeros to 
fill out the field) for the fractional part of values. 



If a text string is larger than its corresponding field, it 
will be truncated on the right. 

In addition to the above rules, printing is subject to the 
following conventions. 

1. If the field to the left of a decimal point is not large 
enough to contain a numeric value, asterisks are in- 
serted in the printed output as a warning to the pro- 
grammer. For example, the statements 

>50 PRINTUSING 75, X, SQR(X), 'SQ. ROOT 
>75 :IF Z=#, # IS ITS ######## 



will generate, assuming an X value of 25, 

IF X=* , 5 IS ITS SQ ROOT 



Note that PRINTUSING is not affected by the WIDTH com- 
mand (see Chapter 4) and will accept up to 132 character 
positions. 



PAGE The PAGE statement can be used to advance the 

paper to the top of the next page. Figure 1 shows how 
PAGE and PRINT statements might be used in CP-V to pro- 
duce a page of tabular data. 

Note that before BASIC is called, a PLATEN command is 
used to set the page length to 16 lines rather than the stan- 
dard 54 lines per page. A PLATEN ,0 command given 
prior to calling BASIC would have caused both PAGE 
statements to be ignored. (For a more detailed discus- 
sion of the PLATEN command, see the Xerox CP-V/TS 
User's Guide, 90 16 92). 



CP-V and BPMonly. 
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[PLATEN ,16 



IBASIC 








>100 


PAGE 








>110 


PRINT , 


' X 


! 


X SQUARED' 


>120 


PRINT 








>130 


X^X+1 








>140 


PRINT , 


X , 


Xi2 


, X+3 


>150 


IF X<1Q 


THEN 


130 


>160 


PAGE 








>RUN 










13:32 J UN 


08 


RUNEBAA. . . 



X CUBED 



13:32 06/08/72 35 6101 24-26 



C3] 



1 
2 
3 
4 
5 
6 
7 
8 
9 
10 



X SQUARED 


X CUBED 


1 


1 


4 


8 


9 


27 


16 


64 


25 


125 


36 


216 


49 


343 
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13:33 06/08/72 356101 2 4-26 [4] 



160 HALT 



Figure 1. Use of PAGE Statements in CP-V 



14 Data Output 



DATA INPUT 

DATA and READ The data values used in the execution 

of a program may be contained in a DATA statement. They 
are called into use at appropriate times by the READ state- 
ment. READ and DATA are used in combination with each 
other. 

DATA statements form a chained list of constants that the 
READ statement accesses from left to right, top to bottom. 
DATA takes the form 



line DATA [constant] , [constant] . . 



Simple constants may be preceded by a plus or minus sign. 
DATA statements may also contain alphanumeric constants 
or text strings. An empty field after DATA, as in 

>125 DATA 

or an empty field between commas or after a terminating 
comma, as in 

>1260 DATA 1 ,2 ,3 , ,5 
>1 270 DATA 6,7,8 

implies a value of zero. 

DATA statements may appear anywhere in a BASIC program, 
and do not have to be consecutive. However, it is good 
practice to group the DATA statements at the end of the 
program, thereby making it possible to add as many state- 
ments as are needed to contain the data values without 
disrupting the order of the preceding statements. 

READ assigns (in consecutive order) the values in the DATA 
statement(s) to the variables listed in the READ statement. 
The form of the READ statement is 

[line] READ variable[,variable]. . . 

There is no comma following the final variable in the list. 

Example: 

>555 READ B,C,D 

If a READ statement requests data after the list of constants 
in the DATA statement has been exhausted, execution of 
the program ceases and a message is output to the program- 
mer advising him of the out-of-data condition. 

The list of variables following a READ statement may in- 
clude either of two special entities. A single asterisk means 
to take an error exit if the current DATA statement list has 
not been completely read. A double asterisk means to skip 
any unread elements in the current DATA statement. 

Examples: 

>5 00 READ X,Y,** 

>510 READ A,B ,C,* ,D,E,F 



Suppose the program includes these DATA statements; 

>1000 DATA 1,2,31.5 
>1010 DATA 3,4,5,6 
>1020 DATA 7,8,9 



When line 500 is executed, 1 is read into X, 2 is read 
into Y, and the 31.5 is skipped. When 510 is executed, 3 is 
read into A, 4 into B, and 5 into C. The single asterisk 
is encountered with 6 left in statement 1010 and the error 
message EXTRA INPUT results. 



INPUT The INPUT statement requests data from a source 

that is external to the program, that is. teletype unit, 
card reader, console, or other input device. (INPUT 
differs from READ in that when using READ, the DATA 
statement and its data values are contained within the 
program itself.) Data may be stored in an external me- 
dium for two reasons: either the data is unknown when 
the program is written but will be supplied when the 
program is run, or the amount of data is too large for 
inclusion in the body of the program. The INPUT state- 
ment takes the form 

[line] INPUT variable[, variable] . . . 

There is no comma following the final variable in the list. 
When the INPUT statement is executed, data values are 
read into the computer from the external storage medium 
and are assigned, one at a time, to the variables designated 
in the INPUT statement. It should be emphasized that data 
is stored as it is received, and that the variables are satis- 
fied (that is, associated with the data) in the order in 
which they are specified. Some sample INPUT statements 
are shown below. 

>100 INPUT X 

>110 INPUT A,B ,Z ,Y ,R3 

>120 INPUT B(1,N), C(N), N 

>13 INPUT N, 5(1, /!/), C(N) 

In the above example, every time statement 100 is ex- 
ecuted, the computer will supply a data value to the 
variable X. Statement 110 will supply data values to A, 
B, Z, Y, and R3, in that order, from the list of data 
supplied by the programmer. Statements 120 and 130 
will very probably not be equivalent, even though the 
same variables are specified in both. They will not be 
equivalent even if the data values are supplied in the 
same order as the variables were given, unless the value 
of N is not changed by execution of either of the INPUT 
statements. 



When data input is required, the user is signaled by a "?" 
character. 



The data values that satisfy the variables in INPUT are 
contained in a list of data separated by commas or blanks. 
If the list begins with a comma (or in the case of commas 
with no intervening nonblank characters), the computer 
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understands that a ze'o value precedes the comma. For 
example, the computer interprets 



execution, a Monitor error message will result and any re- 
maining activities prior to the next job card will be aborted. 



,5,3 4- 



as meaning the values 0,5,3, and 4. Similarly, if the list 
ends with a comma, as in 

12 3, 

the computer will assign the variables in the INPUT state- 
ment the data values 1,2,3, and 0. Finally, the list 



1 2 



will be interpreted as data values 5,1,0,5, 1, and 2. 

After the entire list of variables in an INPUT statement is 
satisfied, control passes to the next program statement. If 
at the time, the current line of input values has not been 
exhausted, the remaining values will be accessed by the 
next INPUT statement executed. 

The list of variables in an INPUT statement may include the 
special entities, asterisk and double asterisk, used to act 
on unused fields in lines entered for input. The double 
asterisk means skip any unused fields. The single asterisk 
means take an error exit if unused fields remain in the line 
of input. 

Examples: 

>200 INPUT A ,B ,** ,C ,D 

means input to A and B, skip anything left in the current 
input line, and input to C and D from the next line. 



>210 INPUT A,B ,* 



means input to A and B. 
exhausted. 



Error exit if the input line is not 



If the input lines shown above are entered in response to 
statement 100, etc., and N ~ 2 prior to executing state- 
ment 100, the result is as follows: 



Z=0 

A = 5 5 = 3 Z = 4 1 = 1 53 = 2 
5(1 ,2) = 3 C(2) = N=5 
N=l 5(1 ,1 ) = C(l ) = 5 



The values 1 and 2 are pending for any subsequent INPUT 
statement. 

Note: In BTM on-line BASIC, with INPUT via the users 
console, if a portion of an input line is unused at 
the end of execution, it will be interpreted as new 
source input and, because of its form, will cause 
an error message (e.g., BAD FORMAT). 

In the batch mode, with input data via the card reader, 
if there are unused data cards at the end of program 



LOOPING 

FOR and NEXT BASIC provides the programmer with still 

another method for specifying data values for variables. This 
method defines a loop using FOR and NEXT statements. A 
loop is a portion of a program written in such a way that it 
will execute repeatedly until some test condition is met. A 
FOR and NEXT loop causes execution of a set of steps for 
successive values of a variable until a limiting value would 
be exceeded. Such values are specified by establishing an 
initial value for a variable together with a limit value, and 
an increment or decrement that is used to modify the vari- 
able each time the loop is executed. When the limit is ex- 
ceeded, an exit condition built into the loop allows the 
computer to proceed to the following body of the program. 
FOR and NEXT loops, therefore, have three main components. 

1. An initial value expression for the variable used by 
the formula. 

2. A limit value expression beyond which the variable 
may not be incremented (or decremented). 

3. An optional increment or decrement expression value 
to be added to (or subtracted from) the value of the 
variable for each pass through the loop (except the 
last). 

The FOR statement defines loop parameters. It gives the 
initial value of the variable, the expression for the limit 
value that the variable may not exceed and that cause the 
loop to terminate, and (optionally) the increment or decre- 
ment expression. If the step increment or decrement is not 
given in the FOR statement, it is assumed to be +1. The 
FOR statement takes the form 

line FOR simple variable = expression TO 



-expression [STEP expression] 



The expression preceding TO specifies the initial value of 
the variable, the expression following TO gives the limit- 
ing value, and the expression following STEP gives the 
increment or decrement. The computer evaluates the 
initial value expression only once, when the FOR statement 
is executed. The other two expressions are also evaluated 
when FOR is executed, but, additionally, are reevaluated 
every time the NEXT statement is executed. A sample FOR 
statement is shown below in the discussion of NEXT. 

The NEXT statement returns program execution to the be- 
ginning of a FOR and NEXT loop after the indexed simple 
variable has been incremented. NEXT has the form 

line NEXT simple variable 

Note that the simple variable in the NEXT statement must 
be specified exactly as it appeared in the FOR statement. 
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If is possible to branch into or out of a FOR-NEXT loop at 
any point. 

Eixample: 



>1 o 


,!' = 5 


>1 1 


r (';,-' .r = i to 


>1 2 ■) 


IT T >2 :' ,;/v 


>1 3 


:','X" n I 


>1 4 




j 4 ". 'i f 


J '.' ; ? R 
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14Q 



■ rn ''J A A 



This loop will be executed only for I ~ . 1, .2, and .3 be- 
cause the rounded value of I is slightly over .4 on the last 
try. To get four iterations in this example, use 



10 



FOR I=.l TO .41 STEP .1 



Loops may be contained within other loops (nested), but 
the loops may not "cross". This exclusion is illustrated in 
Figure 2. 

BASIC allows loop nesting to 26 levels, that is, the BASIC 
program may contain no more than 26 FOR statements whose 
corresponding NEXT statements have not yet been encoun- 
tered in compilation. 



In the above example, a branch tc line 140 is taken when 
the value of I reaches 3, rather than waiting for the loop 
to terminate at I = 5. 



The easiest way to understand a FOR and NEXT loop is to 
follow one through its entire sequence of operations, as in 
the following statements. 



>50 FOR X=2 TO 11 STEP 3 
>60 PRINT X, 2\X 
>7 NEXT X 



Statement 50 sets the initial value of X to 2 and specifies 
that X thereafter will be incremented by 3 each time the 
loop is performed until X has the limiting value 11. 



correct 



incorrect 




Figure 2. Nested Loops 



Statement 60 causes the computer to print out the current 
value of the variable X and the result of 2X. Statement 70 
causes the computer to return to statement 50, where it picks 
up the next value of X, that is, +5, The computer then 
prints 5 and 32 and again goes to NEXT which returns it to 
FOR. When X attains the limit value of 1 1, statement 60 
will be executed and control will pass to 70. The computer 
will again try to increment X by 3, but as the upper limit 
of variable X will have been reached, the computer will 
"fall through" statement 70 and control will pass to the next 
statement. At this point, X will have the value 11, the 
last value that does not exceed the terminal value. 



Fractional values may be used in FOR-NEXT loops. When 
this is done, there is the chance that an expected iteration 
may not occur because of rounding, as in the following 
statements: 



10 FOR I- .1 TO .4 STEP .1 



5 NEXT I 



MISCELLANEOUS STATEMENTS 

REM or* The REM (Remark) statement allows the pro- 

grammer to interject commentary anywhere in the program 
without affecting its execution. Remarks may be used to 
identify the complete program, or, more important, the 
function or purpose of various sections of the program. The 
Remarks statement takes the form 



[line] | ^ f [commentary] 



Notice that a 'Remarks statement is indicated by an asterisk 
(*) or the word REM. The commentary portion of the state- 
ment may include any characters up to the end of the line 
If commentary is omitted, REM or * will produce a dummy 
line in the program. 

Examples: 

>100 REM THIS IS A REMARK 
>110 *THIS IS ALSO A REMARK 
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Branching to a Remarks statement- is allowed and is 
recommended when blanching to a closed subroutine. Such 
use of a Remarks statement serves to identify the subioutine. 
It also allows statements to be inserted at the beginning of 
the subroutine, if unused line numbers exist between the 
Remarks statement and the first executable statement of the 
subroutine. 



PAUSE, STOP, or END PAUSE, STOP, or END can be 

used to halt program execution at any point. The line num- 
ber of the halt is printed when program termination occurs. 
Chapter 4 outlines methods for resuming operation of a 
halted program (see "PROCEED"). 



PAUSE, STOP, and END have the form 
[line] PAUSE 



[line] 
[line] 



STOP 
END 



Any number of these may be used in a program, or none at 
all. If none is used, the program will normally halt after 
the highest numbered line has been executed. If a branch 
into an infinite loop occurs, as shown in the example below, 
the BREAK key can be used to halt execution. 

>100 INPUT A 
>110 PRINT A 
>120 GOTO 100 



Miscellaneous Statements 



3. ADVANCED FEATURES OF BASIC 



For simplicity, explanations in previous chapters have 
covered only the essential features of BASIC program ele- 
ments. This chapter contains additional information on 
these elements and explains advanced features of BASIC. 



MULTIPLE STATEMENTS PER SOURCE LINE 

BASIC programs are organized as numbered statements. 
Many sequences of statements are always executed in se- 
quence. That is, statements in the middle of the sequence 
are never reached by a GOTO, GOSUB, or RETURN. Se- 
quences of statements of this type may be written in a 
packed form (more than one per line). 

The form is 

[line] statement\statement 
or 

[line] statement & statement 
Examples: 

>io !:;:p:jt -. i ,a \ pfixt a 

>2 A = \*'J'niJ IS A REMARK 
>3 ;?='-!+ 1 Z GOTO 5 

Restrictions: 

DATA and Image statements must be numbered and be the 
only statement on the line. 

The statements END, GOSUB, GOTO (without ON), 
PAUSE, REM, RETURN, and STOP may occur only as the 
last element in a line. 

The multistatement capability is advantageous not only in 
saving memory and file space for the user, but also in al- 
lowing grouping of related short statements and insertion of 
remarks on the same line as a statement (as in line 20 above). 

OTHER ELEMENTS OF A BASIC PROGRAM 

The additional program elements presented below give the 
user greater flexibility in using the statements explained in 
Chapter 2, and also augment the capabilities of the new 
statements described in this chapter. 

SUBSCRIPTED VARIABLES 

In addition to simple variables, BASIC also provides for 
subscripted variables. A subscripted variable denotes an 
element of an array, that is, a list or table of data. The 



individual values within the array are called array elements. 
We refer to an array element by specifying the name of the 
array (always a single letter) and the position of the ele- 
ment in the array. For example, the fourth element in the 
array named L is denoted by L(4). The value inside the 
parentheses is called the subscript, and is represented by an 
expression that can be reduced by the computer to a single 
integer value. (Subscript expressions are evaluated to inte- 
ger value after adding 2~ .) Subscripts range from 1 through 
the maximum allowed dimensioned value. 



Arrays can have either one or two dimensions. A one- 
dimension array is called a vector and is characterized by 
a single subscript. The subscript denotes the position of the 
desired array element in the list of data. Sample vector 
array elements are A(l) and B(J + 3). 

When an array has two dimensions, it is called a matrix. 
Data in a matrix is thought of as being arranged in rows 
and columns. Each element in a matrix is identified by 
two subscripts separated from each other by a comma. The 
first subscript specifies the row number and the second 
specifies the column number. For example, C(K, L) and 
D(M+2, N+3) denote matrix array elements. 

As a further example of matrix notation, consider the fol- 
lowing table, which lists expenses for a four-day car trip. 



Column 



Row 


\\Date 
Item ^^^ 


June 5 


June 6 


June 7 


June 8 


1 


Gas, oil 


21.29 


20.84 


19.42 


6.08 


2 


Tolls 


1.32 


.86 


.40 


.07 


3 


Food 


11.18 


12.83 


14.39 


5.06 


4 


Lodging 


10.05 


12.78 


10.35 


.00 


5 


Misc. 


1.35 


.44 


.90 


.10 



If we consider the table to be a matrix called E, the amount 
($10.05) spent for lodging on June 5 would be represented 
by E(4, 1), and the amount ($5. 06) spent for food on June 8 
would be represented by E(3,4). 



DIMENSIONING 

A dimension is the largest value that a subscript may attain 
for a given subscripted variable (array). This limit tells 
the computer how many storage units of the computer's 
memory to allocate for the array. Dimensions are specified 
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explicitly in the DIM statement, but the user may make 
array references without corresponding DIM statements. In 
such cases, implicit dimensions are used. Implicit dimen- 
sions are: 10 storage units for a vector and 100 storage 
units for a matrix (that is, a 10 by 10 matrix). If the pro- 
gram uses MAT statements (explained later), the dimensions 
of all arrays referred to in these statements must be explicitly 
defined in DIM statements. 

DIM There are three reasons for explicitly specifying 

the dimensions of an array. 

1. The user may wish to allocate more space for his array 
than allowed by implicit dimensions. Thus, DIM A(18) 
would reserve 18 storage units for the vector A. 

2. The user may wish to restrict the reserved storage space 
for each array to its exact dimensions, thereby conserv- 
ing space. For example, DIMB(3,4) reserves 12 storage 
units for matrix B, thereby leaving for other use the re- 
maining 88 units that would have been allocated by im- 
plicit dimensions. 

3. The user may wish to use a given array in a MAT 
statement. 

The DIM statement takes the form 

D i „e] DI M{j:;;:f}<d: m ^H>[,( i l :r'}- 



-(dimx[,dimx]) 



fhere 



letter or letterS 
dimensioned. 



is the name of the array being 



dimx is a dimension expression that denotes the 

maximum number of row or column elements in 
the array. 

Dimension expressions may not contain user-defined func- 
tions, array references, letter digit variables, or letters 
that have not been set (see "SET" in Chapter 4), and are 
evaluated during compilation (not during execution) by 
truncating to an integer value after adding 2~'A If di- 
mensions for more than one array are specified in a DIM 
statement, they are separated by commas. A given array 
may be dimensioned only once in a BASIC program via a 
DIM statement. DIM statements may appear anywhere in a 
BASIC program. A sample DIM statement is given below. 

>10 DIM M(3 ,3) , 7(128) 

A string scalar may not appear in a dimension statement. 
To avoid conflict, the same letter may not be used for both 
a string scalar and a string array or numeric array. 



CP-Vonly. 



VECTORS 

Numeric Vectors. A numeric vector is a one-dimensional 
array containing numeric or aconst data elements. The 
name of a numeric vector consists of a single alphabetic 
character. An element is referenced by a subscript expres- 
sion denoting the relative position of the desired element 
(see "Subscripted Variables", above). 

>100 A(l)=3.14, B(A(1))= 1 LARGER 1 

>110 A(2)=SIN(A(l)-l) , B(2)=l 

>115 IF A(1)<A(B(A(1)-B(2))+1) THEN 150 

>120 PRINT B(A(B(2))) 



String Vectors. A string vector is a one-dimensional array 
containing text string elements. The name of a string 
vector consists of an alphabetic character followed by a 
dollar sign. An element is referenced by a subscript ex- 
pression denoting the relative position of the desired ele- 
ment. The subscript expression may be followed by a 
substring expression specifying the beginning and length 
of the desired substring (see "Character String Manipula- 
tion", below). 

>100 DIM A${ 3) 
>110 A$(.1)='ABCDEFGH 1 
>120 4$(2)=i4$(l :2) 
>130 A$(3)=4$(2 : 3,4) 

In the above example, vector element A$(2) is assigned the 
string BCDEFGH and A$(3) is assigned DEFG. Note that 
all string arrays must be dimensioned via a DIM statement. 



MATRIXES 

Numeric Matrixes. A numeric matrix is a two-dimensional 
array containing numeric or aconst data elements. The 
name of a numeric matrix consists of a single alphabetic 
character. An element is referenced by a pair of sub- 
script expressions, separated by a comma, denoting the 
row and column of the desired element (see "Subscripted 
Variables", above): 

>100 Ail ,1)=1 , 4(1 ,2) = 2 
>110 4(1 ,3 ) = 'THREE 1 , 4(2,7)=5 
>115 IF 4(1,1)>A(1,2) THEN 15 
>120 PRINT 4(1, 4(2, 7) -4 (1,2)) 

String Matrixes. 1 " A string matrix is a two-dimensional 
array containing text string data elements. The name of 
a string matrix consists of an alphabetic character followed 
by a dollar sign. An element is referenced by a pair of 
subscript expressions, separated by a comma, denoting the 
row and column of the desired element. The subscript pair 
may be followed by a substring expression specifying the 
beginningand length of the desired substring (see "Character 
String Manipulation", below): 

>100 DIM 4$(2 ,2) 
>110 A$ (.1,1)= 'ZEITGEIST* 
>120 A$(l ,2)=i4$(l ,1:3,6) 
>130 A$(2 ,1 :1,2)=4$(1,2:3) 
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In the above example, A$(l,2) is assigned the string ITGEIS 
and A$(2, 1) is assigned GE. Note that all string arrays 
must be dimensioned via a DIM statement. 



CHARACTER STRING MANIPULATION 

In Batch/BTM BASIC, strings are limited to alphanumeric 
constants up to six characters long and to text strings in 
PRINT statements. CP-V BASIC permits strings up to 132 char- 
acters long and provides capability for 

1. Referencing string variables. 

2. Using string expressions. 

3. Assigning a character string variable. 

4. Assigning length or numeric value of a string variable 
to a simple or subscripted variable. 

Converting a numeric value to string format. 

6. Concatenating strings. 

7. Comparing strings. 

Using strings in input/output statements. 

Generating alphanumeric constants from strings for file 
identification. 

10. Establishing maximum string length and storage require- 
ments (see "SET" in Chapter 4). 



REFERENCING STRING VARIABLES 

Strings are identified by a letter and dollar sign followed 
by a further identification of the type of string specified: 
string scalar, string array, string array element, or sub- 
string. Examples of each of these are given at the end of 
this discussion. Strings may also be combined in expressions 
for the purpose of string concatenation. 

String scalars have the form 

letterS or $letter 

A string scalar may not appear in a dimension statement. 
To avoid conflict, the same letter may not be used for both 
a string scalar and a string array or numeric array. 



Allowed for compatibility with A00 BASIC. 



String array elements are subscripted variables. They have 
the form 

letter$ (expr[,exprj) 

where the optional expression denotes a matrix element. A 
string with only one expression is a vector element. 

String arrays may be explicitly dimensioned. The form for 
dimensioning a string array is 

DIM letterS (dim[,dimx]) 

Substrings are marked by a colon preceding an expression. 

letterS (:expr l[,expr 2]) 

where 

expr 1 indicates the position of the first character 

of the substring. 

expr 2 indicates the length of the substring in num- 

ber of characters. If expression 2 is omitted, the 
substring includes all characters from the indexed 
character to the end. 

If a string is an element of a vector or a matrix, then the 
form of the substring is 

letterS (expr l[,expr 2 J : lexpr 3j[,expr 4J) 

where 

expr 1 and expr 2 are the indexes of a string array 

element. 

expr 3 is the Index, or string position, or the first 

character of the substring. 

expr 4 is the length, or number of characters in 

the substring. Again, if expression 4 is omitted 
the string consists of all characters from the in- 
dexed character to the end of the string. 

String examples are 

P$ String scalar. 

H$ ( 1 ) String vector element. 

£$(2,3) String matrix element. 

;4$( :4) Substring consists of all characters from 

the fourth to the last character of A$. 

A$ ( : 4 , 1 ) Substring consists of fourth character 

of A$. 

£$(2,3:5,2) Substring consists of the fifth and 

sixth characters of string matrix ele- 
ment B$(2, 3). 
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STRING EXPRESSIONS 



STRING LENGTH AND VALUE ASSIGNMENTS 



String expressions may be used inCP-V BASIC as arguments 
for string functions; PUT, PRINT, and PRINTUSING state- 
ments; string concatenations; string comparisons; and as file 
identifiers in OPEN and CHAIN statements. They must be 
explicitly stated in the PUT, PRINT, and PRINTUSING 
statements, but may be in either implicit or explicit format 
in al I other cases. 

The implicit string expression (strexp) has the form 



string 

tstring 

var' 

STR(expr[,rstring]) 



string 

tstring 

var 1 

STR(expr[,rstring]) 



where var' is a variable containing an alphanumeric constant. 

Implicit string expressions are always to the right of the 
relation operator in string assignment statements and 
comparisons. 

Explicit string expressions (xstrexp) are required to avoid 
ambiguity on whether or not string processing is called for. 
The form of this expression is 

fS(strexp) | 

Utring + strexp] 

where the dollar sign resolves the ambiguity that arises if 
the first character is a letter character (as in STR or in a 
variable). An implicit expression may be used only in a 
statement where the syntax is unambiguous in indicating 
string processing. 



Examples: 

LET Z$ = 5(2,3) + A$( : 5) 

PRINT $(B(2 ,3) + A$( : 5) ) 
PRINT B(2 ,3) + 4$( : 5) 

PRINT "ABC" + A$ 



implicit string 
expression 

explicit string 
expression 

ILLEGAL ! 
ambiguous 
syntax 

ILLEGAL 



For these assignments, CP-V BASIC provides two intrinsic 
functions: LEN (for length) and VAL (for value). LEN 
and VAL may only be used in assignment statements. The 
assignments are made to simple or subscripted (not string) 
variables and have the form 

[line] LET var[,var]. . . -sfunct(strexp) 

where sfunct is LEN or VAL. Both assignments can be made 
in one statement, separated by a comma as in the example 

>25 K1=LEN(W$(2,3)) , K2 = VAL ( W$ ( 2 , 3 ) ) 

in which the length of the matrix string element WS(2, 3) is 
assigned to the simple variable Kl, and its numerical value 
to K2. The arguments for both functions must be string ex- 
pressions. If the character string specified for VAL does 
not represent a correctly formatted decimal constant, an 
error message is generated and execution terminates. 



CONVERSION TO A STRING 

The output conversion routine automatically converts an ex- 
pression to string format, but in manipulating text it may be 
desirable to have the same conversion performed internally, 
for example to store an evaluated expression in a file or 
embedded as a substring within a text string. The string- 
conversion routine is available in CP-V BASIC for this pur- 
pose. It has the form 

[line] LET string ~ STR (expr[,rstring]) 

where STR is the string-conversion function. 

The replaceable-string (rstring) argument is optionally used 
to indicate the image of the desired format. If the rstring 
option is not used, format is that for print output conversion. 

Like the output conversion, string-conversion is governed 
by the setting of the precision flag. The string will have a 
leading blank if it is nonnegative, but will not contain 
trailing blanks. The minimum length for string is two bytes; 
maximum length is 22 bytes for long precision and 12 bytes 
for short precision. 

Examples of STR (conversion-to-string) statements are 

>10 A$=STR(3.5 ,#„#) 

>20 H$(.1:9)=STR(SQR(.X)) 

>30 LET W$(2,3)=STR(A1+B1*C0S(X)) 



ASSIGNING CHARACTER STRINGSTO STRING VARIABLES 

Simple variables provide storage for just one doubleword; 
therefore, a simple variable is limited to representing an 
alphanumeric constant (maximum of six characters). 

In CP-V BASIC, character strings more than six characters 
long must be assigned to string variables (letter$). Strings 
up to six characters are considered alphanumeric constants 
and may be assigned to simple or subscripted variables. 



STRING ASSIGNMENT AND CONCATENATION 

Another string, an alphanumeric constant, a string converted 
expression (see above), or a concatenation of any or all of 
these may be assigned to a string. The form of the string- 
assignment and concatenation statement is 

[line][LET]string=f StreX P }[" + | strex P [ 
(.xstrexpj (_ (.xstrexpJ 
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where strexp is an implicit string expression and xsirexp an 
explicit string expression (see "String Expressions", above). 

Examples: 

>100 DIM A$(2) 

>110 A$(1)= , 0NE' , A$(2)= 1 TW0 1 

>120 S$=i4$(l)+' AND '+4$(2) 

>130 B$=S$+ ' „ ' 

The left string is given a value and a length consistent with 
the items to the right of the equals sign. If the right con- 
tains only one term, the statement performs string assign- 
ment. If the right side contains two or more terms, con- 
catenation occurs in the order given. If the maximum 
string length is exceeded, the string is truncated. 

If assignment is to a substring whose current length is less 
than n-1, where n is the first character of the target sub- 
string, then the gap to character n-1 is filled with blanks. 
If target-substring length is specified and the number of 
characters transferred is less than this specified length, then 
the gap from the last character transferred to the specified 
length is also filled with blanks. Characters in excess of 
specified length are not transferred. 

STRING COMPARISON 

Strings are compared for identity or "magnitude" in IF. . . 
THEN or GOTO statements. The form of the statement is 



n. l,r ,. /strexp 1 /THEN 1 

llmej 1(- string oper i r \ i^~ T _r 

L J y K Ixstrexpj IGOTOJ 



where oper is a condition operator (strexp and xstrexp were 
explained under "String Expressions"). Examples are 

">10 IF W$(:1)= 1 1W 1 GOTO 99 
>20 IF W$<>STR(Xl*Yl+3) THEN 40 
>30 IF R$>STR(0) GOTO 8 5 
>40 IF A$<"D0G"+B$(1:9) THEN 120 



Strings are compared from left to right as character pairs. 
In comparing characters, the EBCDIC collating sequence is 
followed (see Appendix H). A blank is the lowest charac- 
ter, followed by nonalphanumeric characters. Alphabetic 
letters are next, in the order ABC ... YZ. Digits are the 
highest elements in the collating sequence. If one string is 
shorter than another, the shorter string is "extended" with 
blanks for comparison. Note that a string may be com- 
pared to an aconst: 

IF A$ = Z THEN 100 

The string comparison capability of CP-V BASIC makes if 
possible to sort BCD files alphabetically: 



MOO I11PUT=* E ENDFILE : 1 , 140 

>110 H=0 E OPEN 'FILE* TO : 1 ,IEPUT UPDATE 

>115 INPUT :1,C* \*I11ITIALI7,V, KEY (1)T0 1 

>1 2 INPUT : 1 ; KEY (1 ) ,A r. , 3 £ 

>125 IE A$*l$ TEEN 130 fi GOTO 120 

>13~ ; :1,4ft E ; : 1 -,KEY(1 )-l ,!/* 

>13b ;?=1 E GOTO 120 

>14 7/' R=l TEEN 110 



The example shown above reads a file named FILE and 
sorts the records into ascending alphabetic order. Note that 
this program would have to be modified considerably to sort 
large files quickly, and will not work unless all records have 
keys that are consecutive integers (see "Keyed and Sequential 
Access", below). 

STRING INPUT/OUTPUT 

Explicit string expressions and text strings may be used in 
input/output statements in the form used for expressions and 
alphanumeric constants in Batch/BTM BASIC, subject to 
the general rules governing strings. That is, a run-time 
error results if a text string (more than six characters) is 
provided as input to a nonstring variable; or nonstring in- 
put (neither a text string nor an alphanumeric constant) is 
provided to a string. The statements used are INPUT, 
PUT, READ, GET, DATA, PRINT, MAT PUT, MAT GET, 
MAT READ, PRINTUSING, and MAT INPUT. 

Examples: 

>14 MAT GET :3, 4 $(2,3), B$ 

>5 00 DATA 'ONCE UPON', "A TIME" 

>885 PUT V$, f/$(l), X$(l,i4) + '?' 

>910 READ H$(l), #$(2), ff$(3) 

>700 GET : 3 ;K ,W$ (Al ,A2 ) , X$ 

>750 PRINT $("IT'S "+STR(A)+B$) 

>760 PRINT USING 100, ff$(l), C$ 

>800 PRINT :4,/l$(l ,1) ,A$(1,2) 

>4 MAT PUT A$ , B$, C$ 

>410 MAT GET 4$ (2, 3) , V$ 

>42 MAT READ F$ ( 4 ) , G$ 

>4 30 MAT INPUT W$ , X$ 

>44 MAT GET A$ , B 

>44 5 PRINT :1, £$(2,3:4, 5);4 + 2 

Line 440 requires that the data file have the correct number 
of string array elements to fill A$, immediately followed by 
numeric data to fill numeric array B. 

The examples above show cases of string input/output only. 
The forms are similar to those described earlier for nonstring 
input/output. In CP-V BASIC, statements may mix (with 
appropriate caution) string and nonstring items in the same 
statement, as shown in Appendix A. 

STRING INPUT MODE CONTROL 

Normally, when a string is reached in the list for an INPUT 
statement, the next data field in the record is accessed. 
Blanks and commas are treated as field separators unless 
they occur within quoted fields. An alternate form is pro- 
vided in which an entire input line, or record, is treated 
as a single field. 

The form for switching string INPUT mode is 

[line] INPUT =f $ ., , . 1 

lany other cnaracterj 

INPUT = $ switches to full record input mode. Each input 
referenced to a string accesses a full record and treats it 
as a single string (as though it were enclosed in quotes). 
If a record has been partially input (for numeric assign- 
ment) and a reference to a string follows, the remainder 
of the record is treated as a single field. 
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INPUT r - X (any character but S) switches back to normal 
input mode, which is the default. 

String input mode is changed only by these explicit state- 
ments and remains as set through successive operations 
within BASIC until explicitly reset. 

Strings including characters whose EBCDIC value is less 
than 64 (blank) can be input, but trailing characters of 64 
or less are ignored and a null (EBCDIC zero) is interpreted 
as an end-of-string. Caution is advised in using control 
characters (see Appendix H) in input strings. 



GENERATION OF ACONSTS FROM STRINGS 

A string or string expression may be assigned to a simple or 
subscripted variable, but only six characters will be trans- 
ferred and the rest truncated. If the string contains fewer 
than six characters, trailing nulls are generated to satisfy 
the aconst format. 



Examples: 



>A1=P$ 
>A2=B$( :4) 
>43=$( 'NO. 



'+C$U4) ) 



This provides an indirect means to assign strings as external 
names or file identifiers by first assigning strings to simple 
variables. 



STRING EXPRESSIONS AS FILE IDENTIFIERS 

In CP-V BASIC, string expressions maybe used to designate 
the name, password, and account for file identification in 
OPEN and CHAIN statements. The string expressions must 
not result in text strings exceeding 11 characters for name 
or 8 characters for account and password. 



Examples: 

>120 OPEN ' FILE' +A$( : I ,1) TO : 1 , INPUT 
>340 CHAIN B$(N) : 'ABC ; 'SECRET' 

In line 120 above, if AS = '1234567' and I = 3 then 'FILE3' 
is opened. 



and make reference to it according to a name he designates. 
The form of the DEF statement is 

line DEF FN letter(simple variableLsimple , 

I variable]. . . ) - expression 

where 

letter provides a unique name for the function. 

simple variable is a dummy argument appearing in 

parentheses to the left of the equals sign. These 
only serve to identify which of the simple vari- 
ables in the expression to the right of the equal 
sign are arguments. There must be at least one 
such argument, although it is not necessary that 
any or all of the arguments appear in the expres- 
sion. Each time the function is evaluated, current 
argument values will be substituted for these terms 
in the expression. There is no comma following 
the final simple variable in the list. 

The following examples illustrate typical DEF formats: 

>65 DEF FNA(X)=X+B*X 
>100 DEF FNB(X)=X*SIN(FNA(X+C)) 
>120 DEF FNXiXO ,X1 ,X2) =X0*X1*X2 / K 
>550 X=FNX(1,2 3)+FNB(Y+3.1^) 

Line 550 is an example of how the functions defined in lines 
100 and 120 might be used later in the program. The vari- 
able X to the left of the equalssign is a different entity from 
the dummy variables X in the DEF statements. 

DEF statements may appear anywhere in the BASIC program, 
including those cases in which the function is referenced 
prior to its definition. 

BASIC checks DEF statements for identical simple variables 
in the list of dummy arguments, undefined functions, multi- 
defined functions, and consistency between the number of 
arguments supplied by the programmer when the function is 
called (referred to) and the number of arguments in the 
DEF statement. However, it is the responsibility of the 
programmer to avoid circular definitions in and among the 
DEF statements. Improper uses of DEF are shown below. 



Case 1 . Circular definition within statement: 



>1200 DEF FNA(X)=X+FNA(X) 



USER-DEFINED FUNCTIONS 

DEF If the programmer wants to make use of a function 

that is not included in the set of BASIC intrinsic functions, 
or if he intends to make repeated use of an involved ex- 
pression, he may define the function in a DEF statement 



Case 2. Circular definition among statements: 

>1400 DEF FNA(X)=X+FNB(X) 
>1U50 DEF FNB(X)=X*FNC(X) 
>1500 DEF FNC(X)=FNA(X) /X 
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REREADING DATA 

RESTORE The RESTORE statement alters the normal 

sequence of DATA statement accession. DATA statements 
are normally accessed as the preceding DATA statement is 
exhausted. For example, of the following set of DATA 
statements, 

>100 DATA 1,2,3,4 
>110 DATA 5,6,7,8 
>120 DATA 9,10,11,12 



statement 110 will be accessed only after data value 4 in 
statement 100 has been assigned to a variable, and state- 
ment 120 will be accessed after data value 8 in the 
preceding statement is assigned. RESTORE allows the 
programmer to alter this sequence by directing the com- 
puter (via a line number) to a specified DATA statement 
from which data accession will proceed in the normal 
manner. 



Some sample GOSUB and RETURN statements are shown 
below. 

>10 GOSUB 5 00 



>52 5 RETURN 

The RETURN statement does not contain the line number of 
the statement following GOSUB. BASIC remembers its 
place in the program. 

An attempt to execute a RETURN statement before a 
GOSUB statement is executed causes output of an appro- 
priate error message. Execution of too many GOSUBs 
before a RETURN also causes an error message to be printed. 
The program may execute up to 20 GOSUB statements before 
a RETURN is needed. 



The RESTORE statement is frequently used for accessing 
data that will be used several times in the program, and 
eliminates the need for writing duplicate DATA statements 
when the same data is to be accessed more than once. The 
form of the RESTORE statement is 



[linej 



RESTORE 



[line] 



where the second "line" must be the line number of a valid 
DATA statement in the program. Some sample RESTORE 
statements are given below. 

>74 RESTORE 125 
>9 00 RESTORE 

If the line number is omitted in the RESTORE statement (as 
in line 900 above), the computer will return to the first 
DATA statement in the program. 



CHARACTER CONVERSION 

CHANGE The CHANGE command (CP-Vonly) can be 

used to convert string characters to equivalent EBCDIC 
values and vice versa. To convert a string to EBCDIC, the 
command has the following form: 



[line] CHANGE { Str j ing Woiette 
[xstrexpj 



Examples: 

>10 CHANGE A$ TO B 

>50 CHANGE $('246'+C$) TO D 

The string characters are converted to EBCDIC values stored 
in the vector specified by the letter. The letter must repre- 
sent a vector dimensioned by a DIM statement. The current 
dimension of the vector is set to the number of string char- 
acters converted. 



BRANCHING TO A SUBROUTINE 

GOSUB and RETURN The GOSUB and RETURN state- 

ments provide subroutine capability in BASIC. A subroutine 
is a section of the main program that completes a specific 
task. GOSUB, in the main body of the program, directs 
the computer (via a line number) to the first statement of 
the subroutine. After the subroutine has been executed, 
RETURN directs the computer to the statement following 
GOSUB, where the main program continues. The form of 
GOSUB and RETURN are 

[line] GOSUB line 

[line] RETURN 

where RETURN is the last executed statement of the 
subroutine. 



Assuming that A$ = 'AT when line 10 above is executed, 
the decimal equivalent of 'A' (i.e., 193) is stored in B(l) 
and the equivalent of '1' (i.e., 241) is stored in B(2). Dec- 
imal equivalents of all EBCDIC characters are listed in 
Appendix H. 

To convert a vector to a string, the following form is used: 

[line] CHANGE letter TO string 

The elements of the specified vector are converted to char- 
acters and placed in the specified string or substring. The 
current dimension of the vector is used. If a value has a 
fractional part, it is truncated. 

Example: 

>15 CHANGE X TO Y$ 

Assuming X has the elements 193, 241, 90, and 7, the 
characters 'A', ' T, ' !', and 'bell' will be stored in YS- 
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FILE MANIPULATION 

Files are made up of records, each of which may contain 
one or more data elements. A file may be organized as a 
consecutive sequence of records or as a set of records ar- 
ranged according to sort keys. The data in files may exist 
in a "print" form (BCD)or in the form used within the com- 
puter (binary). BASIC allows operations on BCDand binary 
files with sequential or keyed access. Files are also used 
to store and fetch BASIC programs. The BASIC statements 
OPEN, CLOSE, GET, PUT, ENDFILE, and special forms of 
PRINT and INPUT provide file manipulating capability. 



FILE NOMENCLATURE 

Files may have names of up to 11 characters. In BTM/BPM 
BASIC only two forms are allowed. Names may be enclosed 
in quotes (single or double) or may be aconsts (limited to 
six characters) stored in simple variables. In CP-V BASIC 
a name may also be any string expression (see Chapter 5) 
of up to 11 characters. It is advisable to restrict the charac- 
ters to letters and digits if the files are to be accessed by 
processors other than BASIC. 

The name may be optionally followed by a password of up 
to eight characters and/or an account identifier of up to 
eight characters. An account should not be specified for 
output operations, since output will not be permitted on 
other users' accounts. 

The general form for file identification in an OPEN state- 
ment is 

name [;password][:account] 

Examples: 

"DATAFILE" 

Al ; 'SECRET* :' 12 345678 ' 



BPM (Batch) and CP-V BASIC permit four streams. Only 
one file can be opened on a given stream number at one 
time, but the same stream number may be used to open 
another file later, closing the currently open file. The 
stream number is specified in the OPEN statement and may 
be any expression which evaluates to a legitimate stream 
number. Fractional values are truncated to integers, and 
expressions which do not result in integer values 1 to 4 
should generally be avoided. 



KEYED AND SEQUENTIAL ACCESS 

BASIC allows file access in either sequential or keyed form. 
All files created by BASIC are actually keyed but they may 
be sequentially written and read without explicit references 
to keys. Sequential files created without keys may be read 
sequential ly. 

A "key" is a means of selecting a specific record in a file. 
All records in BASIC files are arranged in ascending order 
according to the numeric value of the record keys. If a 
file is created without explicit keys, the first record writ- 
ten is given a key of 1, the second record will have a key 
of 2, and so on. A key is not part of the contents of a 
record but is used to identify the record, in much the same 
way that a license plate identifies an automobile. 

The keys used in BASIC are numbers in the range 0.001 to 
9999.999. Sequential files are created with keys 1.000, 
2.000, ... (these keys are compatible with the keys, or 
"sequence numbers", used in the Xerox Edit processor). 

The key value for a given I/O operation can be set by ex- 
plicit reference to the key, using any arithmetic expression. 
The value is multiplied by 1000, rounded to an integer, 
and the result used as a three-byte binary key. If a subse- 
quent operation on the same file does not reference an ex- 
plicit key, the key value is incremented by one for each 
record accessed. 



In the second example, the simple variable Al must contain 
a name as an aconst. 

Passwords are used for file security, and the account is used 
to input data created in other users' accounts. A password 
is preceded by a semicolon and an account number is pre- 
ceded by a colon. If both account and password are speci- 
fied, the order of their appearance is optional. 

The term 'fileid'will be used for name [;passwordJ[:accountJ 
in describing forms of the OPEN and CHAIN statements. 



If an output statement with an explicit key creates more 
than one record, the subsequent records have keys incre- 
mented by one per record. If an input statement with an 
explicit key requires more than one record of data, records 
are read sequentially starting at the record with the refer- 
enced key. 

The user can determine the largest key value in any file via 
a few BASIC statements. For example, suppose the user 
wants to extend a file named FILE1 and wants to know the 
last key value of the file before doing so. He can use the 
following sequence of statements to do this: 



1/0 STREAM NUMBERS 

Files are "opened" to specified input/output "streams". 
An I/O stream is a means of transferring data between a 
BASIC program and the computer's file system. In some 
ways an I/O stream is like a bank teller's window that may 
be "closed" when not in use and, when "open", may be 
assigned a specific function such as paying or receiving. 
BTM on-line BASIC currently permits three I/O streams. 



>0PEN 'FILE1 1 TO :1, INPUT 
> INPUT :1 ;9999,,4 



KEY NOT FOUND 



> ; KEY ( 1 ) 
> CLOSE :1 
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The example indicates that a 4 is the largest key value in 
the file named FILE1 (see the third-from-last line). To find 
the largest key value in any other file, simply substitute the 
appropriate file name in the first line of the above example. 



UNKEYED I/O IN THE UPDATE MODE 

When a file is opened in the update mode (see "Binary File 
Update" and "BCD File Update" below) a BASIC program 
may input data from the file or may replace existing data 
records with new information. The most straightforward 
way of updating an old record is to specify the key of the 
record, in a PRINT or PUT statement (PRINT for BCD files 
and PUT for binary files). It is possible to update records 
without specifying a key, however file positioning is not 
separately maintained for input and output operations. For 
example, if a PUT is followed by a GET and no key is 
specified in the GET statement, any data left over from a 
previous GET is input first (i.e., residual data from the 
last record read). Then the record accessed is the next one, 
in ascending key sequence, after the last record PUT. An 
unkeyed PUT following a GET replaces the last record 
accessed. 

An unkeyed PRINT following an INPUT replaces the last 
record accessed. An unkeyed INPUT following a PRINT 
accesses the next record after exhausting all data in a 
previously INPUT record. 

In general, it is advisable to specify keys in all UPDATE 
operations. 

OPEN The OPEN statement performs the following file 

management functions: 

1. Designates that the named file is to be opened for BCD 
or binary input, output, or update. 

2. Assigns the file fro an I/O stream number. 

3. If a file is to be opened for output (PUT or PRINT is 
specified) and an old file of the same name exists, 
the old file is deleted when the new file is opened. 
If a file is to be opened for input and the same file is 
currently open for output, the file is closed for output 
before being opened for input. Re-opening a file for 
input repositions the file to the first record. A file 
may be open for input on more than one I/O stream at 
the same time. 

4. Indicates whether an existing file may be written over 
if a file of the same name is to be open for output. 

5. Positions the opened file at its starting point. (A file 
opened for output is initialized as an empty file. ) 



Declares a file as a TFILE if the OPEN statement so 
indicates. TFILES are released at the end of a terminal 
session or, in batch operations, at the end of the JOB. 
The TFILE directive is ignored if the file has a 
password. 



BINARY INPUT 

The OPEN statement for binary input has the form 
[line]OPEN fileid[,]TO .-stream, GEt[[,JTFILE 

Example: 

>120 OPEN 'DATA 1 TO :3, GET 



This opens the file on I/O stream 3 and does not declare 
the file temporary. 



DEFAULT FORM FOR BINARY INPUT 

An abbreviated form may be used for binary input. 

[lineJOPEN fileid[,J l[any characters] 
This is equivalent to 

[line]OPEN fileid TO :1, GET 

BCD INPUT 

The OPEN statement for BCD input has the form 

[linelOPEN fileid[,]TO rstream, INPUt[[,] TFILe] 
Example: 

>12f> OPril 'IT' "0 :1, INPUT 
This opens the file named IT to I/O stream 1 for BCD input. 

BINARY OUTPUT 

The OPEN statement for binary output has the form 

[lineJOPEN fileid[,jTO :stream, PUT,{q^ er }[[,]TFILe] 
Example: 

>130 OPEN 'OUTF 1 TO : A( I ) ,PUT , OVER , TFILE 

If A(I) = 4, this opens "OUTF" to stream 4 for binary output 
(PUT). OVER indicates that an old file named OUTF is to 
be written over if present. TFILE indicates this is a tempo- 
rary file, to be released at end of job. 

DEFAULT FORM FOR BINARY OUTPUT 

An abbreviated form may be used for binary output. 

[lineJOPEN fileid[,] O [any characters] 
This is equivalent to 

[lineJOPEN fileid TO :2,PUT,OVER,TFILE 
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BCD OUTPUT 

The OPEN statement- for BCD output- has the form 

[line]OPEN fileid[,]TO : stream, PRINT[,] { over }" 



I—[[,]tfile] 

Example: 

>14 OPEN *BCDOUTFILE y TO :4, PRINT ON 

The 'ON' directive means if an old file exists with name 
BCDOUTFILE, it is not to be overwritten. 

BINARY FILE UPDATE 

To update a binary file, use the form 

[line]OPEN fileid[,]TO :stream, GET[,]UPDATE 1 



lz: 



[[,]tfile] 



This opens an existing binary file in the update mode, 
allowing input (GET) and output (PUT) on the file. 

Example: 

-1I-5 OPp.N 'Hi!' r ~0 :?, GET UPDA m K 
This opens file BIN to I/O stream 2 for input or output. 

BCD FILE UPDATE 

To update a BCD file, use the form 

[linejOPEN fileid[,]TO:strea m/ INPUT[,] UPDATE — i 



I — [[Jtfile] 



This opens an existing BCD file in the update mode, allow- 
ing input (INPUT) and output (PRINT) on the file. 



Example: 



>1 5 



'PPSA.nr' TO :3, 



UP DAT! 



This opens file SESAME to I/O stream 3 for input or output. 

ENDFILE The ENDFILE statement allows the user to 

branch to a designated line number in his program when an 
out-of-data condition occurs or a specified key is not found. 
The form of the ENDFILE statement is 



[linejENDFILE :stream,f^. . 1 

II ine numberj 



The "stream" may be any expression. If the expression 
evaluates to a legitimate stream number, endfile control 
will be applied to any GET or INPUT via that stream. 



If the expression evaluates to zero, endfile control applies 
for READ and for INPUT from the card reader in the off- 
line (batch) mode. However, I/O stream zero can be 
specified to provide endfile branching when an end-of-file 
(i.e., an (5F) is INPUT from the user terminal. 

The "stream" expression is followed by a "line number" 
(not an expression) or the letter "E". E indicates reset to 
normal error exit. A "line number" indicates the location 
(in the user's program) to transfer to on the out-of-data 
condition. 



Example: 



>100 
>110 



OPEN "FILE" TO :1, INPUT 



ENDFILE :1, 15 
>120 INPUT :1, A$ 
>130 PRINT A$ 
>140 GOTO 120 
>150 CLOSE :1 

Note that modification and recompilation of a program that 
has been interrupted by use of the BREAK key will reset 
endfile control to an error exit. To restore endfile control 
after a program interruption, type the desired ENDFILE 
statement (or statements) as a direct statement just before 
resuming program execution unless the desired ENDFILE state- 
ment will be re-executed within the program. 

CLOSE The CLOSE statement closes the file on the in- 

dicated I/O stream. 

LlineJCLOSE :stream 

This closes the open file, if any, on the indicated stream 
number. 

Example 

>200 CLOSE :N 

If N = 3, stream 3 is closed. 

The following forms may also be used. 

[lineJCLOSE l[any characters](equivalent toCLOSE:!) 

[line]CLOSE 0[anycharactersj(equivalent to CLOSE :2) 

Files may also be implicitly closed by an OPEN statement 
and are closed on leaving BASIC. Files may be left open 
through execution of several programs. 

GET The GET statement retrieves binary data from files 

created by PUT statements. Data is assigned to specified 
variables as it is received from the file via the indicated 
I/O stream. Access may be sequential or keyed. GET has 
the form 

LlinejGET :stream[;key], variable[,variable]. . . 
A default form can be used 

GET variable. . . 

This is equivalent to 

GET :1, variable. . . 
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The variables may be simple or subscripted. There is no 
comma following the final variable in the list. As in READ 
and INPUT, the variable list may include either of the 
special entities * or **. The single asterisk causes an error 
exit if the current record has not been exhausted of data. 
The double asterisk causes any unused data in the current 
record to be discarded. 

Attempts to GET on an I/O stream which is not open for 
binary input or to use an illegal I/O stream number will 
terminate the run with an appropriate error message. 

The specification of a nonexistent key or an attempt to 
read beyond end-of-file gives an OUT OF DATA error 
exit and message. This exit may be modified by the user 
via ENDFILE (see above). 

A GET statement may require reading more than one record 
to satisfy the variable list. If the GET statement has the 
key value n, the records read are accessed sequentially 
starting with n. 

If a keyed GET is followed by a nonkeyed GET, records 
are accessed sequentially starting with the keyed record. 



Example: 



>100 OPEN "PUT FILE" TO 

> 1 1 ENDFILE : 3 , 15 

>120 GET :3, Al , S4 , CI 

>130 PRINT /11*(B4-C7) 

>140 GOTO 12 

>15 CLOSE :: 3 



The form of the PUT statement is 



GET 



[linelPUT^reomDkey],]^,} 



- fexpr J 

(aconstj 



This statement writes data into a file in internal (binary) 
format. The expression following the colon indicates the 
I/O stream (thus, because of an OPEN statement, the 
file to be written on). The optional expression preceded 
by a semicolon designates the key. If a key is designated, 
the first items written will be to a record with that key 
value. A PUT statement may generate more than one rec- 
ord. If so, and if the statement contains the explicit 
key n, the records generated will have keys of value n, 
n + 1, ... 



A default form can be used 

[line]PUTf eX P r }[> 
(a const) la 



xpr | 
constj 



This is equivalent to 



[line]PUT:2,( eX P r l[( eXpr J 
(.aconstj laconstj 



The data values to be entered into the file may take the 
form of an expression or an alphanumeric constant. There 



is no comma following the final expression or aconst in the 
list. Some sample PUT statements are shown below. 

>880 PUT "ERICEL" ,55 ,72 

>881 PUT :1 ,TIM(X) ,DAY(X) ,YER(X) 

>882 PUT FNH(A1)+P*Q 

The FNH in statement 882 is an example of a user-defined 
function. These are explained under "User-Defined Func- 
tions", earlier in this chapter. 

PUT statements can be used to write on files opened for PUT 
or opened for GET, UPDATE. In the case of updates, rec- 
ords can be inserted or replaced using the key option. In 
newly created files, the key option can also be used to write 
records in a nonsequential order and to replace previously 
written records by repeating a PUT with the same key. 

The form of PUT and GET records is described in Appendix E. 
These records generally include 14 data values, but short 
records may be created by use of keyed PUT statements or 
as the last record written before closing the file or using 
the flushing technique (see "I/O Flushing" below). 



Example of keyed PUT statement: 

>300 PUT :4 ; 1 2 1 ,A,B ,C ,D,E ,F 



Zl 



1 G,H ,K,J ,K,L ,M,N ,0,P 

This statement will cause BASIC to write a record via I/O 
stream number 4 with the key 121 and the values contained 
in the simple variables A to N. The values in O and P will 
be the first two values written on record 122. If the next 
PUT statement does not include a key, writing will continue 
on record 122. (This example was chosen to indicate the 
caution that should be used in mixing keyed and nonkeyed 
output statements. ) 

If a PUT statement does not fill the current output record, 
that record is not normally output until it is later filled, a 
keyed PUT is executed, or a CLOSE is executed. Short 
records may be forced out by using the special expression 
"**" (see "I/O Flushing", below). 

A PUT statement may result in an error message if the se- 
lected I/O stream is not open in the proper mode, an illegal 
stream number is selected, or an out-of-range key is 
selected. 

INPUT The action of an INPUT statement for file input 

is analogous to that of a normal INPUT statement (see 
"INPUT", Chapter 2) except the BCD input is routed from 
an open file through a specified I/O stream rather than from 
the terminal (on-line) or card reader (off-line). Sequential 
or keyed access is permitted. The form of a file INPUT 
statement is 

[line] INPUT [:stream[;key] ,] input list 

Example: 

>250 INPUT :3,A(1) ,A(2) ,** 
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The "Input list" is the same as for normal INPUT statements. 
One line constitutes one record and a single INPUT state- 
ment may access several records sequentially. If the INPUT 
statement specifies a key, reading starts at the beginning 
of the keyed record. 



Attempts to input a specific keyed record that does not 
exist, (if no ENDIFLE is in effect) or to use an I/O stream 
not open for BCD input or an illegal I/O stream will result 
in an error exit and message. 



An attempt to INPUT beyond the end-of-file gives an OUT 
OF DATA error exit. This exit may be modified by the 
user by means of an ENDFILE statement (see above). 



BASIC will read records consisting of one or more blanks, 
and in the keyed mode it will read keyed null records. 



PRINT The action of the PRINT statement for file out- 

put is analogous to that of a normal PRINT statement (see 
"PRINT", Chapter 2) except the BCD output is routed 
to an open file via a specified I/O stream. Sequential or 
keyed output is permitted. The form of the file PRINT 
statement is 



Statement 400 generates two records with keys I and 1+1. 
Then statement 410 generates a new record with key 1+1. 

If the file is created with a key interval of 10 records, it 
might be generated or updated as follows. 

>4 00 PRINT :4;10*I,1,2,3,4,5,6,7,8 
>410 PRINT :4 ;10*(I + 1 ) ,9 ,10 ,11 ,12 

In this case, statement 400 generates records with keys 101 
and 101+1. Statement 410generates a record with key 101+10. 

PRINTUSING The action of the PRINTUSING statement 

for file output is analogous to that of a normal PRINTUSING 
statement (see "PRINTUSING and :(Image)", Chapter 2) 
except the BCD output is routed to an open file via a speci- 
fied I/O stream. Sequential or keyed output is permitted. 
The form of the file PRINTUSING statement is 



[line]j PRINT j [:stream[;key],] USING line 



[r expression 
' (text string 



Notice that a semicolon may be substituted for the word 
PRINT. 



n . -, fPRINTl r ri ., , . , 

Llinejj M:stream[;key],J print list 

Notice that a semicolon may be substituted for the word 
PRINT. The first expression in the PRINT statement is the 
optional I/O "stream" number. The optional second ex- 
pression is the "key" value. The "print list" allows any 
arguments acceptable in a normal PRINT statement. 



A record is generated for each line of print (governed by 
WIDTH, see Chapter 4), thus one statement may generate 
more than one record. If the print list ends with punctua- 
tion, a partial record is formed. The record is output if a 
full line is formed, a PRINT on the same stream ends with- 
out punctuation, or any PRINT is executed on a different 
I/O stream (or to the terminal). In general, it is bad prac- 
tice to end a file PRINT statement with punctuation (comma 
or semicolon) or a TAB(0). 

If a PRINT statement generates more than one record, the 
key is incremented by 1 for each record. This should be 
particularly noted if files are generated with later updates 
in mind or when in the update mode. If it is likely that 
multirecord PRINT statements will be used, the file should 
be created as a keyed file with key increments large enough 
to allow insertions and replacements without inadvertent 
overwrites. 

Examples: 

>4 00 PRINT :+;I,l,2,3,4,5,6,7,8 
>410 PRINT :4; 1+1,9, 10, 11, 12 



Examples: 



>100 PRINT :1;K, USING 200, X, JM- 
>110 ;: 2, USING 2 5 0,"Z=",Z 



1/0 RESIDUE 

In executing GET, INPUT, or READ statements the current 
record may or may not be exhausted of data, depending on 
the amount of data contained in that record. Normally, 
any residual data remaining in a record is retained for use 
by a subsequent GET, INPUT, or READ. The use of asingle 
asterisk in a GET, INPUT, or READ causes BASIC to take 
an error exit if residue occurs. A double asterisk causes 
any residue to be discarded. 

In the example shown in Figure 3 the user loads, lists, and 
runs a program named LISTFILE. The data used by LISTFILE 
is contained in a file named FILE, the contents of which 
are displayed in the example through use of the Edit sub- 
system. See the Xerox Edit (for CP-V)/Reference Manual 
(90 16 33) for an explanation of how Edit is used to create, 
display, and alter files. When executed, the program 
LISTFILE opens FILE to stream 1 and prompts the user to type 
an employee number. It then inputs a header record to B$ 
and inputs the first field of each subsequent record to E$(l) 
until it finds one beginning with 76540. The INPUT :1, 
** statement in line 70 causes unwanted residue to be dis- 
carded. Line 100 inputs the remaining data from the 
selected record. 
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[EDIT 

EDIT HERE 

*EDIT FILE 

*TS 1-4 

'EMPL NO. NAME SOC SEC NO. 

10712 JACK 468~54-234 123GRT 876-0987 

7 6 540 MIKE 654-87-932 123KIU 654-6543 

87 6 54 TED 432-65-876 98 7 PIP 876-6543 

*END 



IBASIC 

>LOAD LISTFILE 

>LIST 10-110 

10 DIM E$(5) 
OPEN 'FILE 1 
INPUT N$ 
INPUT :1, B$ 
INPUT : 1 , E$ ( 1 ) 
IF E$(1)=N$ THEN 
INPUT :1, ** 
GOTO 5 



ADDRESS 



PHONE' 



TO 



INPUT 



90 



20 

30 

40 

50 

60 

70 

80 

90 ;B$ 

100 INPUT :1 ,E$(2) ,#$(3) ,#$(4) ,£"$( 5) 

110 ;£$(1) ,£"$(2) ,£$( 3) ,#$(4 ) ,£$( 5) 

09:22 J UN 9 LISTFILE, , . 

P76540 

£MPL 21/0. AM A® SOC 5ffC NO. 

7 6 5 4 MJZff 654-87-932 

110 HALT 



ADDRESS 
123KIU 



PHONE 
654-6543 



Figure 3. INPUT Residue Example (CP-V Only) 



I/O FLUSHING 



LOWER CASE TEXT 



If a PUT statement does not fill the current output record, 
that record is not normally output until it is filled by a 
subsequent PUT, a keyed PUT is executed, or a CLOSE is 
executed. 



The writing of short records can be forced by use of the 
double asterisk (see Figure 8, Appendix E). This capability 
is useful primarily in the update mode. 



Examples: 



>320 PUT :4;;tf,4(l) ,A{2) ,A(3) ,** 



This ensures that a three-element record with a key value 
of 4 is immediately output. 

>4 4 PUT : 1 ., ** ,A ,B ,C ,** ,D ,E , F ,** 



This ensures that two short records are output, with three 
elements each. In this case, if a partial record was pend- 
ing prior to executing the statement, it is output first as a 
short record. 



CP-V BASIC allows the use of lower case characters in text 
strings. This capability is often useful in manipulating BCD 
files that are to be output on a 2741 Selectric typewriter 
terminal or other device capable of printing both upper case 
and lower case letters. A teletypewriter terminal can gen- 
erate lower case characters for input to the computer by 
use of the © ) control code, and can return to upper case 
by use of the ©( control code, but prints all alphabetic 
characters as upper case. 

The program shown below will read a file composed of upper 
case text sentences and convert it to lower case except for 
the first letter of each sentence. It assumes that all sen- 
tences end with a period. 

>1 
>110 
>1 2 
>1 3 
>1 4 
>15 



■'/'■;= ' Al CPFFGF1JF FF ' F OP R F T U V ■' X Y '.', ' 

r,:" ; = ' a';">cclef g'li j.'ilraioprTrrituvv/xv^ ' 

I~!PU'F=* G '-JPFPLF : 1. , 2 50 

; ' FILF FAFF ' FAR (0) £ I FPU" F-' 

O n FP F'-"> 'i'O :1, I FPU? UPDA1 

IF PiF:' : 1. JF: G L = ?.Fr! (R* ) 



f, p - i 



>10C FOL 

>i 7 I r 

>18 I r ' 

>1 : -i FO ~ 

>2 IP 

>2 1 P * 

>2 2 FF>. 

>2 3 P=l 

>2 4 FPXT I G 

>2 5 CLOP 77 ' : 1 



' 1=1 PO L 

'?*'• (: 1 , 1 ) = ' • PRFF 24 

P=0 FPPF 1.9 G />=0 G C'npo 24 
> J=l m 2 

R* (: 1 , 1 )<>,''•'■'(: J , 1 ) TFFF 220 
(: I. , 1 ) = L? : (: J , 1 ) G GOTO 24 
'.T J G IF Pi' (:/,l ) <>• . ' TJ 



; : 1 ,Rf> G GOTO 150 



24 
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RUNNING CONSECUTIVE PROGRAMS 



An example is 



CHAIN CHAIN directs the computer to acquire and 

run another program of a series of programs without future 
action by the programmer. The format of the CHAIN state- 
ment is 



>950 CHAIN LINK "PART3" :A;P 



fhere 



[line] CHAIN xname 



/password 

;password:acct 

:acct 

:acct /password 



where name (and, optionally, password and acct ) is the 
identity of a program as defined in the discussion of the 
OPEN statement. 



"PART3" is the name of the chained program. 



:A is account A. 



;P is the password. 



A and P contain alphanumeric constants. 



When executed, CHAIN produces the following results: 



1. The current program is discarded, but the values of its 
simple variables are retained. 



Although CHAIN LINK preserves array context, array 
dimensioning is not preserved. Therefore any array used in 
a program that is chained to must be redimensioned in that 
program, via a DIM statement, if explicitly dimensioned 
in the first program. 



2. The named program is obtained, compiled, and exe- 
cuted if possible. 



3. Output buffers are flushed. 



When CHAIN LINK is used and a program is called from 
the files, CP-V BASIC beings execution with the time and 
date and the name of the program followed by three periods. 
Using the above example, the printout at the time state- 
ment 950 is executed would be 



Note that only the simple variables computed by the pro- 
gram are retained when CHAIN is executed; all array values 
and dimension information are lost. A sample CHAIN 
statement is shown below. 



09: 36 MAR 07 PART3. . . 



>95 CHAIN "PART2" :A;P 



In BTM BASIC if 'A' chains to 'B', after RUN is issued and 
execution is complete, the repeat of the run starts with 'A'. 
In CP-V BASIC the second run executes "B 1 . 



CHAIN LINK The CHAIN LINK statement (CP-V only) 

differs from the CHAIN statement in that it preserves array 
and string values. The CHAIN statement retains only the 
simple variables and discards the rest of the program. 



The form of the statement is 



[line] CHAIN LINK xname 



/password 

/password :acct 

:acct 

:acct /password 



If a program restarts itself by a CHAIN LINK, the program 
name is not repeatedly identified. 



MATRIX OPERATIONS 

Matrix operations in BASIC are controlled through use of a 
special set of MAT statements. In addition to the usual set 
of allowed matrix manipulations, BASIC provides options 
for input of matrixes via console or file, copying or matrixes, 
and the solution of simultaneous equations. Some of the 
matrix operations apply to vectors as well as to matrixes. 
At times, vectors are treated as either row or column 
matrixes. The only matrix operations that can be used 
with string arrays are MAT GET, MAT INPUT, MAT PUT, 
MAT READ, and MAT SIZE. 

MAT statements may be specified to use variable dimen- 
sions, as long as these are within the dimension limits 
specified in DIM statements. In some cases, dimensions will 
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vary because of the operations that are performed on them 
(for example, multiplication of nonsquare matrixes). Thus, 
there is current dimensioning (the result of the latest matrix 
operations, or as specified by the user in MAT SIZE state- 
ments), and absolute dimensioning (given in DIM statements). 
All matrix I/O is done in row major sequence. 

Every array that is named in a MAT statement must be di- 
mensioned in a DIM statement. This assures that absolute 
dimensions exist, sets initial current dimensions, and dif- 
ferentiates between vectors and matrixes. (Note that use 
of a letter to designate an array does not preclude the use 
of the same letter to designate a simple variable.) Current 
dimensioning may not exceed absolute dimensioning. Ma- 
trix operations and their corresponding MAT statements are 
presented below. 



MAT GET The MAT GET statement reads array values 

from the currently open input file. It complements the 
MAT PUT statement, but can also read data prepared by 
ordinary PUT statements. MAT GET takes the form 

[line] MAT GET :stream[;key],ladescr[,adescr]. . . 

The default form 



MAT GET adescr[,adescr]. . . 
is equivalent to 

MAT GET :l,adescr[,adescrj. . 



The default form 

MAT PUT adescr[,adescr]. . . 
is equivalent to 

MAT PUT :2,adescr[,adescr]. . . 

There is no comma following the final array name in the 
list. In the sample statement 

>1002 MAT PUT A ,B 

array A will be completely output before array B is output. 
Current dimensions determine how much data is output from 
a given array. Current dimensions may be set as part of the 
adescr, which is described above for MAT GET. Matrixes 
are entered into output files in row major sequence; that 
is, with the last subscript varying most rapidly. 

Note that one MAT PUT may create several records. The 
key for the first record may be selected, but later records 
will have keys incremented by 1 per record. See "I/O 
Flushing", above, for treatment of partial records. 

MAT INPUT The MAT INPUT statement is the array 

counterpart of the variable-oriented INPUT statement de- 
scribed earlier in this chapter. Format and a sample state- 
ment are shown below. 

[line MAT INPUT :stream[;key],i adescr^adescr]. . . 

If "rstream" is included, input is from an open BCD input 
file assigned to that stream. 



where adescr is an array descriptor of the following format: 

aname[(dimx[,dimx])] 

In the array descriptor, the terms aname and dimx present 
the single letter array designator and dimension (subscript) 
expression, respectively, of the array. As shown in the 
general form above, therefore, an adescr term may indicate 
a single letter array designator, a designator followed by 
one subscript (a vector), or a designator followed by two 
subscripts (a matrix). The dimx expressions in an adescr 
term constitute variable dimensions; they provide a simple 
method for varying current dimensions during execution 
(not during compilation). 

One example of a MAT GET statement is 

>1008 MAT GET 4(3,3), 5(4,8) 

MAT PUT The MAT PUT statement enters arrays into the 

currently open output file. It takes the form 

[line] MAT PUT ::stream[;key], adescr[,adescr] . . . 



Example: 

>1007 MAT INPUT 4(3,4), B 

When statement 1007 is executed, 12 values must be sup- 
plied for the 3x4 matrix A. These values are then fol- 
lowed by input for array B. Note that the number of values 
input to array B must match the current dimensions for B. 

The rule for the use of commas and empty fields in the data 
list read by MAT INPUT is the same as described for the 
INPUT statement. 

MAT PRINT The MAT PRINT statement prints arrays in 

regular or packed format. The form of the MAT PRINT 
statement is 

[line] MAT PRINT kstreamkkeyjJanamefH — , 

I — aname . . .PI 

where aname is the letter designation of an array that has 
been dimensioned in a DIM statement. Some sample MAT 
PRINT statements are shown below. 

>1000 MAT PRINT A , B ; C 
>1010 MAT PRINT D ; 
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There are two types of print formats, regular, or packed. 
An aname parameter followed by a semicolon causes the 
named array to be printed in packed format. Otherwise, 
regular format is used. Statement 1000 will cause array A 
to be completely printed before any element of array B is 
printed. Array A will be printed in regular format, array B 
in packed format, and array C in regular format. Current 
dimensions are used to determine how much data is printed 
from an array. Statement 1001 will cause array D to be 
printed out in packed format. 

Vectors are printed in row fashion. Each row of a matrix 
is printed as one or more consecutive print-rows with a 
blank line between successive matrix-rows. Column 1 of 
a matrix always occurs in the leftmost print field. 

Notes: 1. If MAT PRINT rstream is used, each line of 
output creates one record. In general, more 
than one record will be created. A record 
containing one blank byte is created after the 
last MAT PRINT record is written. 

2. Not applicable to text arrays. 



MAT READ The MAT READ statement is similar to the 

READ statement described in Chapter 2, except that it 
acquires whole arrays of data, rather than just single data 
items. MAT READ has the form 

[line] MAT READ adescr[,adescr]. . . 

where adescr is an array descriptor of the same format pre- 
viously explained under "GET", namely 



ASSIGNMENT FUNCTIONS 

The matrix assignment functions resemble the LET statement 
in form and function. An array name (aname) always ap- 
pears immediately to the left of the equals sign and the 
named array is assigned values according to the specifica- 
tions to the right of the equals sign. 



ZERO 

This statement zeros those elements of the named array that 
fall within the range of current dimensions. Its format is 

[line] MAT aname = ZER[(dimx[,dimx])] 

The optional dimx terms have the same meaning described 
previously under MAT GET; that is, they are dimension ex- 
pressions specifying new current dimensions (subscripts) of 
the array, and as such constitute variable dimensions. For 
example, assuming the array B(5,5), that is, a 5 x 5 matrix 
named B, the following statement, 

>1010 MAT B=ZER(3,2) 



will zero elements (1 , 1), (1 , 2), (2, 1 ), (2, 2), (3, 1 ), and 
(3,2), leaving the remainder of the matrix unchanged. 
Other examples are 

>1020 MAT C=ZER(10) 
>1030 MAT D = ZER 



aname [(dimx[,dimx])J 



If dimension expressions are included in the array descriptor, 
they specify current array dimensions. If they are omitted, 
current dimensioning results from previous conditions. Some 
samples are shown below. 

>1005 MAT READ A(K/L+M,7) 
>1006 MAT READ B, C(3,4) 
>1007 MAT READ D 

MAT SIZE The MAT SIZE statement redefines current 

dimensions of the named array. MAT SIZE has the form 

[line] MAT SIZE aname (dimx[,dimx]) 



,aname(dimx[,dimx]) . 



Examples: 



>1003 MAT SIZE A(X+Y ,Z) , B(3) 
>1004 MAT SIZE 0(4,5) 



where 

aname is the single letter designator of an array. 

dimx is any expression representing a legal 

subscript. 



CONSTANT 

This statement is analogous to that discussed above, except 
that it sets matrix elements to 1 (instead of 0). Its format 
is given below. 

[line] MAT aname - CON (dimx[,dimx]) 

Example: 

>2250 MAT L=C0N(3,5) 

IDENTITY MATRIX 

This statement forms an identity matrix. Since the array 
must be a square matrix, new current dimensioning may 
have to be provided. Two forms are shown below. 

[line] MAT ananme = IDN[(dimx)] 



[line] MAT aname = ID N [(dimx), any characters 



Zl 



' to end of line] 

The first form, which gives the current dimension for the 
row value only, is sufficient to define the square matrix. 



34 Matrix Operations 



second form is provided for fhose users who wish to clearly 
Indicate that the array is a square matrix. However, it may 
stand alone. Appropriate samples are shown. 

>1011 MAT Z=IDN 

>1012 MAT B=IDN(H) 

>1013 MAT C=IDN(3,3) 

>1014 MAT D=IDN(X+Y) 

The result of this operation is a matrix in which all elements 
of the principal diagonal are set to 1 and all other elements 
are set to 0. 



Example: 



■>DIff A (3,3) 
>!!AT A=IDU 
Tt'.AT PRINT A 

10 

10 

1 



ADDITION AND SUBTRACTION OF ARRAYS 

Array addition and subtraction are performed through use 
of the statement shown below. 



llinej MAT aname = anamej jar 



COPY 



This statement adds or subtracts the corresponding elements 
of the two arrays named on the right of the equals sign and 
stores the results in the array named on the left. A sample 
is given for reference. 

>1018 MAT Z = B + C 

The ambiguity introduced by allowing addition or subtrac- 
tion of two vectors with storage in a matrix, or copying, 
transposition, and scalar multiplication of a vector into a 
matrix is resolved by considering the vectors as row vectors. 
Current dimensions of both arrays named to the right of the 
equals sign must be equal for addition and subtraction. The 
current dimensions of the array named on the left side of the 
equals sign are set equivalently. 



The copy statement copies arrays, and sets current dimen- 
sioning of the array copied into to that of the array copied 
from . The form of the copy statement is 

Llinej MAT aname = aname 
In the sample copy statement below, 

1015 MAT A = B 

matrix B is copied into matrix A. Assume that B is a 4 x 4 
matrix with current dimensioning (3,3). Only elements 
(1, 1), (1,2), (1,3) ... (3,3) from B are copied into A. 
Further, any remaining elements inairrayA are not changed, 
and the current dimensioning of A becomes (3,3). 



TRANSPOSITION 

It is not necessary to transpose a vector array; the result is 
an exact copy of the argument vector. Matrixes are trans- 
posed by use of the statement shown below. 

[line] MAT aname = TRN(aname) 
Sample statements are shown below 

> 10.1 9 MAT A = TRN(A) 
>1020 MAT B=TRN(C) 



SCALAR MULTIPLICATION 

The scalar multiplication operation multiplies an array by 
a scalar quantity. The form of the statement is 

[line] MAT aname = (expr)* aname 

where expr is an expression representing the scalar multi- 
plier, and the parentheses are required. In sample state- 
ment 1016, below, 

>1016 MAT A-(A)*A 

>1017 MAT B=(SIN(X+H))*C 

the parenthesized A is interpreted by BASIC as a simple 
variable, not as an array name. 

Scalar multiplication'can be used to set all elements of an 
array to any constant value by using a MAT CON statement 
followed by a scalar multiplication. An example is 



>10 MAT A=C0N 
>20 MAT A=(10)*A 



This example sets all elements of array A to the value 10. 



Current dimensioning of the matrix named on the left side 
of the equals sign is set consistent with current dimensioning 
of the matrix named on the right. 



MULTIPLICATION 

In the multiplication operation, vectors are taken to be row 
or column matrixes as appropriate. If a vector is multiplied 
by a vector, the scalar (dot) product results. The form of 
the multiplication statement is 

[line] MAT aname = aname*aname 

The following is a sample multiplication statement. 

>1021 MAT Z=B*C 

Notes: 1. Current dimensioning must be consistent with 
the usual rules of matrix multiplication. 

2. The same array name may not appear on both 
sides of the equals sign. 
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INVERSION 

The inverse of a square matrix is specified as shown below. 

[line] MAT aname = INV(aname[,simple variable]) 

where the inclusion of the simple variable (in which to store 
the computed determinant of the argument matrix) is a user 
option. Some sample statements are 

>1022 MAT A=INV(H) 
>1023 MAT B=INV(I,D) 

In calculating the inverse of the square (by current dimen- 
sioning) argument matrix, the target matrix is initially set 
to an identity matrix. Then the target is converted by 
those elementary row operations that reduce the argument 
matrix to the identity matrix. Upon completion of the con- 
version, the target matrix is approximately the inverse of 
the argument matrix. The values of the argument matrix 
are destroyed; both matrixes have current dimensioning 
originally applicable to the argument matrix. 

Notes: 1. The argument matrix must be square (according 
to its current dimensions). 

2. Results are approximate, not exact. 

3. At the user's option, the computed determinant 
of the argument is stored in a simple variable. 

4. The contents of the argument matrix are 
destroyed, but current dimensions remain. 

5. The same array name may not appear on both 
sides of the equals sign. 



SIMULTANEOUS EQUATION SOLUTION 

Solution of simultaneous equations is accomplished via the 
statement shown below. 

[line] MAT aname = SIM(aname[,simple variable]) 

where the simple variable modification is a user option. 

Some sample statements are shown below. 

>1024 MAT M=SIM(E) 
>1025 MAT S=SIM(H,D2) 

The target array contains one or more sets of linear equa- 
tion constant column vectors. The dimensions of this array 
must be compatible with the square argument matrix. For 
example, if the argument matrix has current dimension of 
(n,n), the target array must be either an n-dimension vector 
(one solution, or else an n x m matrix (m solutions). The 



argument matrix contains the coefficient matrix. The 
solution of the simultaneous equations is arrived at by con- 
verting the target array by those elementary row operations 
that reduce the argument matrix to the identity matrix. 
Upon completion of the conversion, the values of the 
argument matrix are destroyed, but current dimensions for 
both the target and the argument arrays are unchanged. The 
target array contains the appropriate values that are com- 
puted by taking 

(argument)"' x (target) 

This result is equivalent to solving one or m sets of simulta- 
neous linear equations having the same coefficient matrix, 
that is, the argument matrix. 

Notes: 1. The argument matrix must be square (according 
to its current dimensions). 

2. Results are approximate, not exact. 

3. At the user's option, the computed determinant 
of the argument is stored in a simple variable. 

4. The contents of the argument matrix are 
destroyed, but current dimensions remain. 

5. The same array name may not appear on both 
sides of the equals sign. 



ACCURACY OF INVERSION AND SIMULTANEOUS 
EQUATION SOLUTION 

The results of matrix inversion will vary in accuracy because 
of precision losses during the conversion process. If, during 
conversion, a pivotal element is smaller in magnitude than 
10~'3 f it is considered to be zero and the matrix is con- 
sidered singular. If all elements of a matrix are of small 
magnitude (e.g., 10"° or less), it should be scaled upward 
so the greatest magnitude of any element is near unity. If 
a matrix consists of elements of large magnitude, it should 
be scaled down again to near unity for the maximum 
element. 

When a determinant calculation is requested in using the 
inversion or simultaneous equation functions, the following 
special situations may occur: 

1. If the determinant value calculation results in a magni- 
tude greater than 7.234 x 10^, the value of the simple 
variable will be the alphanumeric value OVERFL. 
This does not affect the calculation of the inverse or 
simultaneous equation solution. 

2. If the matrix is singular, the simple variable is given 
a value of zero; the values of the argument and target 
arrays are destroyed. 
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4. BASIC COMMANDS 



The BASIC commands described in this chapter are instructions 
to the compiler. They are never used in numbered statements. 



ACCOUNT and PASSWORD 

The command 

ACC [OUNT] [name] 

establishes the name of an account that is to be accessed by 
a LOAD, WEAVE, or CATALOG command (see below). The 
name may have from one to eight characters and may con- 
tain blanks or other nonprinting characters if the name is 
enclosed in single or double quotes. If the name begins 
with the letter O and the command word is abbreviated to 
ACC, the use of quotes is mandator/. 

The account name is reset to the log-in account by execu- 
tion of a CLEAR, CLOSE, FILE, SAVE, or RENUMBER com- 
mand or by an ACCOUNT command in which no name is 
specified. Execution of an OPEN, CHAIN, or CHAIN 
LINK^ statement causes the account name to be set to that 
specified in the statement or, by default, to the log-in 
account. 

The command 

PASSWORD] [name] 

establishes a password to be used in executing FILE, SAVE, 
LOAD, WEAVE, and RENUMBER commands (see below). 
Restrictions on the name are the same as for ACCOUNT, 
except that if the name begins with the letter S and the 
command word is abbreviated to PAS the use of quotes is 
mandatory. As with ACCOUNT, the password is subject 
to change by the execution of a CLEAR, CLOSE, FILE, 
SAVE, or RENUMBER command, or an OPEN, CHAIN, or 
CHAIN LINK statement. If no password is specified in a 
PASSWORD command, a null password is assumed. 

In the examples shown below, ACCOUNT and PASSWORD 
set the file attributes, and ACC and PAS reset them. 



ACCOUNT 
ACC 

PASSWORD 
PAS 



LBRY1 



'3731' 



Note: If a file is declared temporary (e.g., through use of 
the TFILE option in an OPEN statement) it is 
released at the end of the job or terminal session 
unless it is created with a password. 



CATALOG 

Typing the command 

cat[alog] 

causes BASIC to print, via the M:SL DCB, the names and 
attributes of all files in the user's account or the account 
specified by an ACCOUNT command (see above). 

>ACCOUNT 6101 
>CATAL0G 

ACCOUNT - 6101 

GRAN HR: MO/DY/YR FILE NAME 



K 


3 


09 


00 


06/19/72 


BITS1 


C 


2 


09 


00 


06/19/72 


BO 


K 


43 


09 


00 


06/19/72 


BOMP 


K 


2 


09 


00 


06/19/72 


BOMPALL 


R 


26 


09 


00 


06/20/72 


BOMP BASE 



The listed attributes are file organization (keyed, consecu- 
tive, or random), number of granules, time and date of cre- 
ation, and file name. 



LOAD and WEAVE 

To load a file containing numbered BASIC statements, the 
programmer types 

LOA[D] [xname] 

If xname is not specified, the current runfile name is used, 
Current PASSWORD and ACCOUNT information are used. 
If no file exists, the following message is output: 



UNABLE TO OPEN 



CP-V only. 



If the file exists, records are read and handled analogously 
to line insertion via the terminal. Error messages are gen- 
erated if syntax errors are encountered. Direct statements 
and commands, which have no associated line numbers, may 
not be read using LOAD. 

If the xname begins with a "D", the LOAD command must 
not be abbreviated to LOA unless the xname is in quotes. 

If the LOAD command is typed while BASIC is in compila- 
tion or run mode (see the STATUS command, below), the 
current program is deleted prior to the load. If BASIC is in 
edit mode, LOAD "weaves" the file statements into the ex- 
isting program by step number. If a statement in the loaded 
file has the same number as one in the existing program, the 
file statement replaces the existing statement. 
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A direct CHAIN or CHAIN LINK 1 " statement is one means 
of replacing a current program with a new program and re- 
taining data context instead of weaving. 

The WEAVE command is equivalent to a LOAD executed 
in edit mode. WEAVE has been added to provide weaving 
action on a program load regardless of current operating 
mode. The syntax is 

WEA[vE][xname] 



LIST 

To list a line or a series of lines, the user types 



LIS 



M[t 



e - line^j 



" Nine J 

' Uine n - line . J 



4'J-- 



which will cause listing of the appropriate lines from the 
program. If the user types 

>LIST 

all lines will be listed. If none exist, the NO PROGRAM 
message will be output. 



DELETE and EXTRACT 

To delete a line, the programmer types the line number fol- 
lowed by a New Line, and the line with that number will 
be deleted. If the line does not exist in the program, the 
line number will be output along with the following error 
message: 



NO PROGRAM 



To delete specific lines or series of lines, the user may type 

DEL[ETE]f , | | ne , jr,}!!" 6 , 11... 
L J Uine - line_J|_'lline 3 - Ime.JJ 

after the prompt, as in 

>DEL 72 
or 

>DEL 85 - 97, 112 - 124 

If the line or series of lines is not found, the NO PROGRAM 
message will be output preceded by the specified line or 
line series numbers. If an illegal line number is used, the 
LINE ^ ERROR message is printed, preceded by the first six 
characters of the illegal line number. The NO PROGRAM 
message does not inhibit further processing of the DEL line, 
whereas LINE * ERROR does inhibit further processing. 



To delete an entire program, it is faster to use CLEAR rather 
than DELETE. Further, the use of CLEAR recovers all the 
space in the text editing area. 

The DELETE command may also be used to delete a named 
file in the user's account. The syntax is as follows: 

DELATE] xname 

If a password is currently in effect, it is applied. For ex- 
ample, to delete a file named FILE1 with password SECRET, 
the user would execute two commands. 

>PASSWORD 'SECRET' 
>DELETE 'FILE1 1 

In this case the user should also type 

>PASSWORD 

to remove the password SECRET prior to other file operations. 

Note: In BASIC, file names may be created with embedded 
blanks or commas. Such names are not readily ac- 
cessible to other subsystems such as EDIT. The file 
deletion capability within BASIC has been added 
primarily to allow the user to delete files which are 
inaccessible in EDIT, FERRET (BTM), or PCL(CP-V). 

The programmer may delete a complete program except for 
certain areas designated by their line numbers or line num- 
ber groups. This is done by typing 

EXT[RACT]P.: ne , ir,f!: ne .. I... 

Mine - line J jy [lme_ - line.] 

If no line numbers are specified, no operation fakes place 
and a prompt is issued to the programmer. 



RENUMBER 

The programmer may specify that his program statements be 
renumbered, starting with a certain line number and renum- 
bering in specified increments. The command to be typed is 



REN[UMBER] [line [, line [,incr]]] 



where 



line.. is the lowest new line number. 



Iine„ is the point in the program at which to start 

renumbering. 



f CP-V only. 



incr is the increment by which the new line num- 

bers are to be spaced. 
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For example, fhe sample statement 

>REN 135, 17 0, 5 

will cause the computer to change statement number 170 
to number 135, the next statement number to be changed 
to 140, etc., until the end of the program is reached. De- 
fault values for the parameters in the RENUMBER statement 
are 100, 1, and 10, in that order. When a replacement is 
made for a step number, replacement is also made for any 
occurrence of the same step number within any statement in 
the program. Illegal RENUMBER syntax causes output of the 
message 



ILLEGAL 



Also, if the renumbering process generates a line of more 
than 132 characters, the following message is output: 



LINE TOO LONG 



If RENUMBER increments a line number past the upper limit 
of 99999, the following message is output: 



LINE # ERROR 



If the renumbering process cannot be completed because of 
errors, the original program will remain unaltered. 

A RENUMBER operation causes the renumbered program to 
be saved as a temporary file with the current runfile name. 
ACCOUNT is reset and if the runfile name is the default 
name, PASSWORD is reset. When the operation is com- 
pleted, this file is loaded to replace the existing version 
of the program. 



NAME and FILE! 

BASIC establishes a default name for a temporary file that 
may be used as required for program storage. This file is 
referred to as the runfile. If the user types 

NAM [E][x name] 

the name of the runfile is changed to the xname given. If 
no xname is given, the default runfile name is restored. 
NAME Tfiles the given xname. The xname may be an alpha- 
numeric constant enclosed in single or double quotes or an 
alphanumeric constant, with no embedded blanks, not en- 
closed in quotes. Xname is restricted to 11 characters at 
most, not counting enclosing quotes. 

If the programmer types 



; IL[E][PAC[K]f 



the source program currently in the text editing area is cop- 
ied with the current runfile name, which has been Tfiled. 
This file will be temporary unless there is a current password, 
and the current runfile name is not the default name. ■" 

The PACK option serves to recover the space that was oc- 
cupied by discarded text. If the option is exercised, pro- 
gram text is read back into core memory in edited format, 
that is, without the empty spaces due to deletions. 

FILE does not modify program context. FILE PACK sets 
BASIC to the editing mode and inhibits returning to the ex- 
ecution without recompiling object code. Array and string 
context is preserved, as is DATA pointing control and 
GOSUB-RETURN status. 



SAVE ON and SAVE OVER 

The user may save selected program statements on permanent 
files. The command is 



SAVE[E 0]{^ ER )xname 



ine 
ine 



, - ""v 



— r f ine n 

[_' Uine_ - line JJ' 



If the SAVE ON form is used, a check will be made that no 
file exists with the same xname before opening for output. 
If none exists, an output file is created. The current PASS- 
WORD information is used and ACCOUNT is reset. * 

SAVE OVER creates the file unconditionally, with current 
password information. ACCOUNT is reset. The file is 
permanent unless two conditions are met: the file name is 
TFILEd sometime during the terminal session (or batch job), 
and the file has no password. 

Samples of SAVE ON and SAVE OVER are given below. 

>SAVE ON 1 PERM2< 1-55, 80-105 
>SAVN M2» 1,5,10,15,30-40 
>SAVE OVER PERM 
>SAVVER 'END' 50-59, 120 



The third example above causes all lines of the current pro- 
gram to be saved in a permanent file (named PERM). This 
is the most commonly used form of the command. 

CLEAR 

To erase everything in the text editing area, the user types 

CLE[AR] 

This command is useful in avoiding the cumulative effect of 
successive LOAD commands (see "LOAD and WEAVE", above). 



The PACK option applies to CP-V BASIC only. 



'cP-Vonly. 
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In addition to the capability existing in Batch/BTM BASIC 
of clearing all program context, CP-V BASIC permits clearing 
of arrays or strings only. This form of the command is 

CLELARj LsTR[lNGS]J 
It releases storage for the indicated option. 



ENTER BASIC 

If the programmer types 

ent[er basic] [l] 

the extended precision print indicator will be set or reset, 
depending on whether the optional L is or is not typed. 



SET 

To set the values of vector and matrix arrays, the program- 
mer types 

SET letter = digits[, letter = digits]. . . 

where the value of the digitstring (interpreted as a decimal 
integer) is assigned to the appropriate declared letter param- 
eter as indicated by the alphabetic character. These param- 
eters are used by the compiler for compilation of DIM 
statements that contain set letters. 

Example: 

A program includes the statement 

20 DIM C(B,B+5) 

B was set to 8. Absolute dimensions will be (8, 13) . 

SET can also be used in CP-V BASIC to establish maximum 
string length for allocation of string storage. The default 
value is 72 and 132 is the highest possible value. 

This form of the command is 

SET $ = positive integer 

Example: 

>SET $=12 

allocates maximum storage of 12 characters for any string. 
Strings with more than 12 characters are truncated and 
length count for such strings is reduced to 12. 

In CP-V the SET command also causes subsequent realloca- 
tion of array-string storage as required for new parametric 
dimensioning or new string lengths. During array-string 
storage reallocation, context is saved as new maximum di- 
mensions permit. 

Note: SET does not assign values to simple variables. If 
SET is used for arrays that will be filled by FOR- 
NEXT loops, the parameterized DIM should be es- 
tablished by a SET and the FOR-NEXT loop by a 
direct LET. Example: 



WIDTH 

To change the PRINT width from its default setting of 72, 
the user types 

WID[TH]digits 

where the value of the digit string, interpreted as a decimal 
integer, must be within the allowed maximum and minimum 
values of 132 and 32, respectively. 

WIDTH affects file I/O as well as terminal I/O, and excess 
characters are printed on the following line, WIDTH cannot 
exceed the PLATEN setting (see the CP-V User's Guide, 
90 16 92) for terminal I/O but file I/O is not affected by 
the PLATEN setting. 



RUN and FAST 

To change from the editing mode to the compilation and ex- 
ecution mode the user types 

[RUN 1 r. -, 
lFAS[T]l [t!me] 

This causes the program to be copied onto the runfile, if 
necessary. ^ The computer then compiles from the runfile or 
from the text edit area. If RUN was specified, compilation 
will take place in the safe mode, in which all variable sub- 
scripts will be checked against absolute dimensions; other- 
wise, compilation will proceed in the fast mode. Ifnoerrors 
are found, the program will be executed. If the compila- 
tion contains errors, the editing mode is restored and a 
prompt character is issued at the console. The user may 
specify a maximum number of seconds of CPU time expended 
by the program. If this time is exceeded, execution is 
aborted with the message 

EXEC TIME LIMIT 

If a FAST or RUN command is given in the editing mode 
prior to the creation of a program, BASIC will enter the 
execution mode and will allow direct execution of state- 
ments from the console as described in Appendix D under 
"Direct Statements". If input is required from the program- 
mer during execution, the BASIC program will issue a ques- 
tion mark at the console. When execution of a program or 
a direct statement is complete, a prompt character is issued. 
Additional statements then may be directly executed, or the 
programmer may revert to the editing mode by typing an ed- 
iting command. 



>SET Z=5 , 7=10 
>LET X=b , Y=10 



BPM/BTMonly. 
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Under BTM or BPM, both RUN and FAST reset- account in- 
formation, if any exists. If the standard runfile is used, 
password information is reset, if any was set. UnderCP-V, 
RUN and FAST do not affect runfile nomenclature. 

BTM BASIC starts each execution with the time and date. 
CP-V BASIC also gives the name of the program followed by 
three periods. When CHAIN LINKis used (in CP-V BASIC) 
and a program is called from the files, its name will be 
similarly printed; if a program restarts itself by a CHAIN 
LINK, its name is not repeated. The default name for the 
runfile has the form RUNxxxx, where the x's represent let- 
ters. Example: 



>RUN 
11 :09 



J UN 9 RUNMAAA, 



BREAK and ESC 

A single activation of the BREAK key (CP-V BASIC) or a 
double activation of the ESC key (BTM BASIC) causes the 
current operation to be stopped. BASIC then requests a new 
command by issuing a > prompt character to the terminal. 
If the BREAK key is depressed again (or the ESC key is de- 
pressed twice again) control passes to the operating system 
executive program and a ! prompt is given. 



STATUS 

To determine the status of his program at any time, the pro- 
grammer types 

sta[tus] 

The system will respond with one of the three messages: 
EDITING, COMPILING, or RUNNING, as appropriate. 
To facilitate loop detection, the RUNNING message is pre- 
ceded by an appropriate line number if execution was inter- 
rupted while one of the instructions in the compiled program 
was being executed. 



BASIC 

The BASIC command displays the following parameters which 
may be set by other commands: WIDTH, PRC, $ (maximum 
string length), and any letters that have been SET to provide 
parameterized array dimensions. This display is automat- 
ically generated at the start of a bafrch run in BPM/BTM 
BASIC. The command has the form 

BAS[lC] 



NULL 

The NULL command sets the value of specified items to 
zero but does not release or reallocate storage, nor does it 
modify current or maximum dimensioning of arrays. It has 
the form 



NUL[L] 



arr[aysJ 

STRINGS] 
SIM[VARS] 



/here 



ARRAYS sets the value of all array elements to zero 

for current dimensioning. 

STRINGS sets the length of all string scalars and 

string array elements to zero. 

SIMVARS sets all simple variables to zero. 

NULL performs all three options. 

NULL does not modify source text or object code; however, 
zeroing simple variables affects FOR-NEXT statements in 
that this resets any loop control variables. 

EXECUTE 

The EXECUTE command^ performs two distinctly different 
functions: it specifies a single, numbered statement for di- 
rect execution; and it specifies a starting point for execution, 
with a halt at a specified line number. The first use is for 
the programmer's convenience, saving him time by letting 
him specify a line number instead of requiring him to type 
the entire line. The second use is a valuable aid in debug- 
ging and verifying program segments without executing the 
entire program, as would be the case with a direct GO TO 
statement. 

The command has the form 

EXE[CUTE]lin ei [-line 2 ] 

where the optional line 2 specifies the line number before 
which execution will halt. In the program example shown 
below, EXE 40 would be equivalent to typing PRINT Al, 
A2, A3, A4, A5; and EXE 40-70 would be equivalent to 
typing 70 STOP © and GO TO 40, except that in the case 
of EXE 40-70 the halt at 70 is temporary; that is, the line is 
restored to normal after the halt has occurred. In this ex- 
ample, if program returns from subroutine 110, line 60 is 
executed, followed by the message 



70 -EXEC- HALT 



'cP-Vonly. 



EXECUTE with only line] is subject to all restrictions apply- 
ing to direct statements (see Appendix D) . EXECUTE with 
lineo option is not restricted. 
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Example: 



>40 PRINT Al,A2,A3,Ai± ,A5 

>50 GOSUB 110 

>60 PRINT A2 

>70 GOSUB 140 



PROCEED 

If, following escape from execution, the command 

pro[ceed] 

is typed after the prompt character, processing continues 
with the core memory (but not file) conditions that were in 
effect immediately preceding the most recent activation of 
the BREAK or ESC key. Alternatively, the user may give 
a direct command such as GOTO or EXECUTE (see above). 



SYSTEM, BYE, and OFF 

To exit from BASIC, the programmer depresses the BREAK 
or ESC key four times and waits for the executive level 
prompt (!). 



Alternatively, the programmer may use the SYSTEM com- 
mand to return to the executive program. The command has 
the form 

sys[tem] 

At this point, he may invoke another processor that operates 
under BTM or CP-V control, or he may vacate the terminal 
by typing 

! BY[E] (or OFF under CP-V) 

If the user wants to log out of the system directly from 
BASIC^, he may do so by typing either 

>BYE 



>OFF 
without using the SYSTEM command. 



CP-V only. 
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5. BATCH PROCESSING 



The programmer prints his program on a coding sheet (see 
Figure 4). The coding sheet is divided into 80 columns 
(corresponding to a standard data-processing punch card) 
and a number of rows or horizontal lines. Each line repre- 
sents one card and each interval on a line represents one 
character space in the corresponding column of the card. 
Note that all characters take up only one column each. 
Conventions have been adopted for manually printing cer- 
tain confusing characters, especially characters and O, 2 
and Z, and I and I (see Figure 4)„ It is advisable to 
check with the computer facility's, keypunch operator for 
notation conventions. 

When completed, the coding sheet is sent to the program- 
mer's Keypunch facility. There 1 v he program is punched 
onto cards, and the deck of cards returned to the program- 
mer. The deck, along with required BPM control cards, 



can now be sent to the computer facility to be run on the 
computer. Figure 5 shows a typical deck structure for a 
BASIC program that is run under BTM or BPM. Note that 
the dashed lines indicate optional control cards. Card 
parameters are explained below the drawing of the card 
deck. 



Figure 6 shows a typical deck structure for a BASIC pro- 
gram that is run under CP-V. Note that a subset of on- 
line editing commands is used in this deck structure instead 
of the special control cards (items 4, 5, 7, and 9 in 
Figure 5) that are used in a BPM or BTM deck structure. 
Other on-line commands, such as LOAD, may be used in 
CP-V BASIC in batch mode, but they are oriented primarily 
toward conversational operations and should be used with 
caution. 
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££L 



SAMPLE PROGRAM 



12 3 4 5 



7 8 9 10 II 12 13 14 19 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 . . . 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 



jP»*mi 



feiSb- 



1Q, , , 



ft&L 



q,i, n ,% 



Jt,g,n Rcrpxr x Ep, a amp l e ,p . r «a&ah , 



.> RE A.D, ,A., .a . v C. 



, ,t),2, ,S, ll ,B,» .B , -,4 * A ».G,_ 



., XF, .P,2, <, & T . K EH^IO. 



SL ,s , &QR.(,P 2V , 



JlZ 



j-,„'.X. I.. 



_i-«u — l AVfr A i — i — i — l_i — i — i. 

.8. ,(aiD)/M 



ir . ly«LiN» 1 1 — iAi„|,*,iyiJv<fci , ,„> — 1_ 

-Jam W I i.W, > fcPi , ,,„i i ti, , ,i 



ilOfT.fl ,,ZS>, 



LfiE PEAL 



iff* Ail if*i> ,i I i^ J,i,y"i t iJL \ Ji V- i.rfi|h tmii 



£JLSL 



y*^ 



2 34 5 6 7 8 9 10 II 12 13 14 15 16 17 18 19 20 21 22 23 24 25 2 6 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 • • . 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 79 76 77 78 79 80 



KEYPUNCH WRITING CONVENTIONS 



,, _,, ir , SUBMITTED RY- IA ■ £T. JQHKi 

Ojimoi&^O) I (one) I (I) L/D^tslash) ^(four) ^(nine) S^fiveJ^S^ Y^(Y) date )?,. t3-kg 



Figure 4. Coding Sheet with Sample Program 
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_9.|_ BPM_C£ntrol_card_s 



!EOD] 



J 



jjBA 



8.1 Data 



<?; 



I 

, s « 

i i 

i i 

» i 

l ! 
i 



HEODl 
l*RUNJ 



BASIC program 




4.j_*Sc[=]digit(s) 



3.j_!BA_SlC 



2. | BPM control cards 



! JOB account, name 



mm > 

■ 

i i 



_j 



._. J 



„j 



Card 

1 
2 

3 
4 



Parameter 

! JOB account, name 
BPM control cards 

! BASIC 
*Sc[=]digit(s) 



['IdigitslJ 



Description 

Signals the beginning of a job. This card is required. 

May include BPM control cards such as ! LIMIT and IASSIGN. These 
cards are optional. For information concerning DCB assignments see 
Appendix F. 

Calls the BASIC processor. This control card is required. 

One or more parameter setting cards to assign the designated constant 
value to the declared letter (used for compilation of DIM statements that 
contain declared letters). Column 1 must contain an *, followed by 
an S in column 2. Column 3 contains the single-letter designation of an 
array. Column 4, always interpreted as =, is followed by a constant 
value. 

Optional declaration card must have an * in column 1, followed by a 
blank. An S in column 3 indicates the safety mode for array references. 
If the safety mode is specified, the compiler checks the subscripts of sub- 
scripted variable references against the dimensions. Any other character 
(indicated by c) in column 3 indicates the fast mode. The default condi- 
tion is "fast". 

D is the default case for the printer line width (100). If a digit appears 
in column 5, successive columns of the cards are scanned until a nondigit 



For information on the format of these control commands, see the Xerox BPM/BP, RT Reference Manual, 90 09 54 
and the Xerox BPM/OPS Reference Manual, 90 11 98. 



Figure 5. Deck Setup for BASIC Batch Processing (BTM or BPM) 
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Card F 
5 


'arameter 




onh) 


Description 

character is encountered. The digits are then interpreted as the printer 
line width (subject to maximum and minimum width parameters, currently 
131 and 32, respectively). It is recommended that the D or digit(s) be 
followed by a comma. If neither a D nor a digit appears in column 5, 
the rest of the card is ignored. 


P } 
IdigitsJ 


(c 


W 




An L in the column following the comma causes listing of all records fol- 
lowing the option declaration card up to an end-of-file mark, or an !EOD 
or *RUN record. (*RUN will be listed, but !EOD will not.) This card 








is optional. 


6 BASIC program 


The programmer's BASIC program, in line-number order. 


{ 


!EOD] 
*RUNJ 




End of program. If no errors are detected by the compiler, the program 
will be executed, beginning at the statement with the lowest line num- 
ber. If this card is omitted, the program will not be executed, even if 
no errors are detected. This allows compilation for diagnosis only. 


8 Data 




Data to be used in response to IN PUT statements. The data should be fol- 
lowed by an end-of-file mark, an !EOD,or a record with an * in column 1. 


9 BPM control 


cards 


Other BPM control cards as required. In particular, the temporary files 
created via the O option of OPEN statements must be copied to perma- 
nent files if the programmer wants to retain the information. 



Figure .5. Deck Setup for BASIC Batch Processing (BTM or BPM) (cont.) 



!EOD 



/ 

10. | Data 

J 



/RUN 1 
lFAS[T]J 

8.JLIS[Tl[|! ne ,. l[f!! ne , f 
I L •' jjine - line J [_' Lime - line J 






•wit 



ulf 



I . 




_-J 



7. I BASIC program 
6 ,EN T~[ER BASlcJfj J 



5. | SET letter = digits [Jetter = digits] 

4. ;WID[TH] digits 

3. I ! BASIC ^ 

,_jL -^ 

1. I CP-V control cards 



! JOB account, name 




! -J 



-J 



Figure 6. Deck Setup for BASIC Batch Processing (CP-V) 
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Card 
.1 
2 



10 



Parameter 

! JOB account, name 

UTS control cards 

! BASIC 
WID[TH] digits 

SET letter = digits — 



[,letter = digits]. 



ent[er BASIC] [l] 



BASIC program 



LIS 



r^Tline 1 

|_l i ne - line_J 

[ (line )1 

[_' Uine~ - line . JJ 



JRUN 1 

IfasCt]/ 



Data 



Description 

Signals the beginning of a job stack. This card is required. 

May include CP-V control cards such as ! LIMIT and 1ASSIGN.* 
These cards are optional. See Appendix F for information con- 
cerning DCB assignments. 

Calls the BASIC processor. This control card is required. 

Changes the width of the printer from its default value of 72 to 
the specified value (digits). All commands may be started in 
column 1 or may be preceded by blank columns. 

Sets the parameter values of the dimensions of vector and matrix 
arrays. The value of the digit string, interpreted as a decimal 
integer, is assigned to the appropriate declared letter parameter 
as indicated by the alphabetic character. These parameters are 
used by the compiler for compilation of DIM statements that con- 
tain SET letters. 

Sets the extended precision print indicator when L is included; 
resets the indicator when L is not included. The default is normal 
precision. 

This is the programmer's BASIC program. In CP-V, it need not be 
ordered sequentially. Note that any run-time error or END, 
STOP, or PAUSE statement causes an exit from BASIC after a 
diagnostic printout. 

Lists a line or a series of lines from the program. If LIS[t] is used 
alone, all lines of the program will be listed. 



If no errors are detected by the compiler, these commands cause 
the program to be executed, beginning at the statement with the 
lowest line number. If this card is omitted, the program will not 
be executed, even if no errors are detected. The RUN card causes 
the program to be compiled in the safe mode, in which all vari- 
able subscripts will be checked against absolute dimensions. The 
FAS[T] card causes the program to be compiled in the fast mode. 

Data cards to be used in response to INPUT statements. The data 
cards should be followed by an !EOD card. 



tr- . 



For information on the format of these control commands, see the Xerox CP-V/BP Reference Manual, 90 17 64. 



Figure 6. Deck Setup for BASIC Batch Processing (CP-V) (cont.) 
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6. BASIC MESSAGES 



This chapter lists BASIC error messages and other messages 
in alphabetical order. Messages that do not apply to all 
three monitors are designated "CP-Vonly"or "not in CP-V". 
In the messages, xxxxx represents step number and x repre- 
sents array name, function letter, or declared letter. Ex- 
cept as noted in comments, an error causes termination of 
program execution. 

There is a special type of error message in BTM BASIC, re- 
sulting from disk input/output errors. Disk input/output 
error messages are transferred from the Monitor and are 
printed by BASIC. A sample error message is 

I/O ERROR 57 

DCB NAME M;EO 

FPT CODE X'lT 



the EBCDIC value of blank or greater are allowed in Image 
statements, text strings, and alphanumeric constants. 



xxxxx BAD CONST 



Line xxxxx contains an improperly formed numeric or 
alphanumeric constant. Probable causes are 

Numeri c 

1. Extra decimal points. 

2. More than two digits in exponent fields (for example, 
.001 El 00). 



BASIC remains in control for continued operation. See 
the Xerox BPM/BP,RT Reference Manual, 90 09 54 for a 
detailed description of this type of error message. 



xxxxx ACONST EXPECTED 



CP-V only. A variable contains numeric data when itshould 
contain an aconst. 



3. Underflow or overflow in conversion to floating-point 
form. 



4. Missing operator after the constant. 
Alphanumeric 



1. Missing quotation mark. 



xxxx ARG NO. ERR FNx 



Conflict between the number of arguments defined and the 
number of arguments used with the function. 



ARRAY CLASS CONFLICT 



2. Single (or double) closing quotation mark does not 
match double (or single) opening quotation mark. 

3. More than six characters between quotes. 

4. Contains a character having an EBCDIC value less 
than that of the blank character (for example, the 
O character). 



CP-V only. The indicated letter is used for more than one 
type of array. Example: B used for a string vector but 
dimensioned as a numeric vector. 



xxxxx ASN-ACS ARG ERROR 



CP-V only. The argument is outside the allowable limits ±1, 



C 



BAD BYTE 



CP-V only. In executing a CHANGE statement, a value 
was not in the range 0-255. 



xxxxx BAD CHAR 



Statement xxxxx contains an illegal character (for example, 
I*?/®/ etc.). Note, however, that all characters having 



xxxx BAD FORMAT 



This message covers a wide range of syntax errors. The 
user should reexamine statement definition if the error is 
not obvious. 



xxxxx BAD FORMULA 



An arithmetic expression error has been detected. This 
message covers a wide range of error situations such as 
missing operators, missing operands, misspelled function 
names, misspelled keywords, etc. 



BAD LINE # AFTER STMT xxxxx 



A line number contains a nonnumeric character or more 
than five digits. 
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xxxxx BAD STMT 



The type of statement is not recognizable; most frequently, 
the command keyword has been misspelled. 



BAD STMT ORDER AT xxxxx 



Not in CP-V. A line number is out of sequence, 



xxxxx BAD STREAM NO. 



An I/O stream number is outside of the legal range (1-4). 



xxxxx BAD SUBSCR 



A known subscript value is too small. 



BAD SUBSTRING PARAM 



CP-V only. Run-time error. A substring index is nonposr 
tive or starts beyond the maximum string length. 



xxxxx BAD TEXT 



A text string either contains a New Line character (user 
probably forgot the end-quote mark), or has an unmatching 
quote (as in 123 PRINT "DOUBLE QUOTE'), or contains a 
character having an EBCDIC value lower than 15. 



BAD TEXT STRING 



Not in CP-V. A test string contains a character having an 
EBCDIC value less than 15. 



CANNOT OPEN 



Unable to OPEN a file. 



DATA MIX-UP, SSTRING VS NUMERIC 



CP-V only. Either numeric data is being input to a string, 
or text exceeding aconst length is being input to a simple 
or subscripted variable (via READ, INPUT, GET, MAT 
READ, MAT INPUT, or MAT GET). 



xxxxx DEFD TWICE 



A function defined in DEF statement xxxxx was also defined 
by an earlier DEF statement. 



xxxxx DIM ERR 



A DIM statement formula contains one of the following: 

1. User function call. 

2. Simple variable that is not SET to some value. 

3. Subscripted variable reference. 

3. Subscripted variable reference. 



xxxxx DIMD TWICE x 



Multiple-dimensioning has been attempted. Revise DIM 
statements. 



DIM TOO BIG 



Run-time error. A dimension is too large in a matrix 
operation. 



xxxxx DIV BY ZERO 



Run-time or compile error. A zero denominator was en- 
countered in expression evaluation. 



xxxxx ERROR IN KEYED I/O 



Reference to illegal key or attempt to access an unkeyed 
file in the keyed mode. 



-EXEC- HALT 



CP-V only. Not an error condition. Execution has reached 
the halt point (second line number) set by an EXECUTE 
nl-n2 statement. 



EXEC TIME LIMIT 



The execution time limit specified in a RUN or FAST com- 
mand was exceeded. 



xxxxx EXP OVERFL 


Fl 


oating- 


-po' 


nt 


overflow during exponentiation. 


xxxxx EXTRA COMMA 



Error indirectly associated with bad comma. Examples: 

Syntax Explanation 

X + (Y,Y) Array reference without array designator. 

SIN (A, B) Too many arguments in intrinsic function. 

M(X,Y,Z) Too many subscripts in array reference. 
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xxxxx EXTRA INPUT 



Contents of input record not exhausted when check symbol 
1 *' encountered. 



xxxxx FILE I/O ERROR 



Monitor indication of error in attempting to write or read 
on file. 



xxxxx FILE NOT OPEN IN PROPER MODE 



I/O operation attempted on file which is closed, or open 
in a conflicting mode, on the I/O stream in use. 



xxxxx FOR-NEXT ERR 



Message covers FOR-NEXT errors illustrated below: 

Case 1. Wrong Variable Reference 

FOR A 

NEXT B error 



xxxxx HALT 


Normal 


message at termination of run. 


xxxxx HAS BAD LINE NO. 



A GOTO, GOSUB, IF, ON, PRINTUSING, or RESTORE 
contains a line number having more than five digits. 



xxxxx HSN-HCS OVERFL) 


CP-Vonly. 


Hyperbolic sine or hyperbolic cosine overflow. 


ILLEGAL 



Illegal editorial type-in. Variety of possible causes. This 
may be a misspelled edit command, aconst too long, illegal 
PROCEED, bad format on RENUMBER, etc. 



ILLEGAL FILE ID 



File name, password, or account identifier too long. 



Case 2. Improperly Sequenced Statements 

FOR I 

FOR J 

NEXT I error 

NEXT J error 



Case 3. No Corresponding FOR Statements 
NEXT A error 



ILLEGAL INPUT 



Illegal input in off-line mode. (See RETYPE message, 
below, for on-line mode.) 



ILLEGAL INPUT FROM FILE 



Illegal input from a file in on-line or off-line mode. 



These messages may be compounded as in 



FOR A 
FOR B 
FOR C 
NEXT B 
NEXTC 
NEXT A 

or alternatively 

FOR A 
FOR B 
FORC 
NEXT B 
NEXT C 



END 



error, FOR C is cancelled 
error, FOR B is cancelled 



error 
error 



error, MISSING NEXTSTMT 



xxxxx INCOMPAT DIMS 



Dimensions not compatible in matrix operation. Examples: 
matrix identity or inversion on nonsquare matrix, wrong 
dimensioning for matrix multiplication or addition, etc. 



xxxxx INPUT DATA LOST 



CP-Vonly. An input record is too big or has a parity error 
and has been discarded. 



xxxxx KEY NOT FOUND 



A keyed read was attempted on a file not containing a rec- 
ord with the specified key. 
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xxxxx LINE # ERR 



An illegal line number (>99999) occurred immediately 
after the statement at xxxxx. If the first line is incorrect, 
xxxxx is zero. 



xxxxx LINE TOO LONG 



A RENUMBER operation has created a source line too long 
for input/output, or more than 85 characters in a line. 



xxxxx LOG OF NON-POS ARG 



The argument in a logarithmic operation is not greater than 
zero. 



xxxxx MISSING ARRAY x 



NotinCP-V. An array was not allocated by the "originat- 
ing" BASIC program. (Occurs only in direct-execution 
mode. ) 



MISSING NEXTSTMT 



At least one FOR statement occurred without a matching 
NEXT statement; that is, there were more FORs than 
NEXTs. 



MISSING STEPS 



No list of line numbers was found in a GOTO. . .ON or 
ON. . .GOTO statement. 



MTRXA/EC x 



NotinCP-V. (see ARRAY CLASS CONFLICT "for CP-V). 
This message indicates conflicting use of array x. 



xxxxx NEG BASE TO NON-INTEGER POWER 



Fractional exponentiation was indicated but the number is 
negative. 



NO DIMSTMT ARRAY x 



An array is used in MAT statement or (CP-V) string state- 
ments, but not dimensioned. 



NON-EXISTENT LINE # 



In the execution mode, a direct statement references a line 
number that is not in the compiled program. 



xxxxx NON-NUMERIC VAL 



CP-V only. A VAL function argument (string expression) does 
not represent a number. 



xxxxx NON-POS DIM 



Run-time error. A zero or negative dimension was en- 
countered in a matrix operation. 



NO PROGRAM 



The source program does not exist for specified lines or ranges 
in editing commands. Example: command was LIST 10-50, 
but no lines exist with numbers between 10 and 50. 



NO STMTS 



Source input contained no BASIC statements. (Not used in 
on-line compilations.) 



NOT A DIRECT STMT 



In Batch/BTM BASIC the following statements are not 
allowed for direct execution: 



DATA 




Image 


DEF 




NEXT 


DIM 




ON 


FOR 




PRINTUSING 


GOTO. 


.ON 





CP-V BASIC does not allow 



DATA 


Image 


DEF 


NEXT 


FOR 





OLD FILE 



SAVE ON was attempted on an existing closed file. 



NO FILE SPACE 



User's allocation or public storage exhausted. User can de- 
lete any unwanted files and continue. 



xxxxx OUT OF DATA 



Not enough data for INPUT, READ, or GET statements in 
the off-line mode. 
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xxxxx OUT OF RANGE REF. TO ARRAY x 



A matrix operation compiled in the "safe" mode has refer- 
enced an index greater than the maximum dimension for 
array x. 



xxxxx OVERFLOW 



Floating-point overflow. 



xxxxx PAREN ERR 



This message indicates a parenthesis imbalance. 



RETYPE 



An input error was encountered in the on-line mode. The 
arrow points to the character at which the error was noted. 
Execution is not aborted. Retype input starting at begin- 
ning of the erroneous datum. Do not type a carriage return 
or line feed before retyping. 



xxxxx RUN INTERRUPTED 



CP-Vonly. This message is issued after a "break" (not an 
error condition). 



POWER OVERFLOW 



Overflow in exponentiation. 



xxxxx PROG TOO BIG 



The program exceeds available memory. (Under CP-V, try 
FILE PACK and possibly CLEAR arrays and strings to recover 
wasted space. ) 



RECOMP FOR DIR ST ABORTED 



CP-Vonly. An error was encountered during recompilation 
for a dependent direct statement or EXECUTE nl-n2. Re- 
compilation is aborted. 



xxxxx RECORD NOT IN -GET-FORMAT 



An attempt to GET has encountered a record not in the 
proper format (see Appendix E). 



xxxxx SEC-CSC OVERFL 



CP-Vonly. Secant or cosecant operation overflow. 



xxxxx SHOULD BE DATA STMT 



Line xxxxx was referenced in a READ or RESTORE statement 
but was not a recognizab^DATA statement. 



xxxxx SHOULD BE IMAGE STMT 



Line xxxxx was referenced in a PRINTUSING statement but 
was not a recognizable Image statement. 



xxxxx SINGULAR MATRIX 



xxxx RESTORE A NON-DATA LINE 



A RESTORE statement indicates a line other than a DATA line. 



xxxxx RESTORE A NON-EXISTENT LINE 



An inversion or simultaneous equation solution was at- 
tempted on a singular matrix. 



xxxxx SQR ROOT OF NEG ARG 



A RESTORE statement indicates a nonexistent line number. The argument of a square root function is negative. 



xxxxx RETURN BEFORE GOSUB 



A RETURN statement was reached but the return stack is 
empty. Indicates improper nesting or branching on 
GOSUB-RETURNs. 



xxxxx STRING EXPR ERR 



CP-Vonly. An incorrectly formatted string expression has 
been detected. 
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xxxxx TOO MANY GOSUBS BEFORE A RETURN 



xxxxx UNDEF FNx 



The return stack for GOSUB-RETURN logic is full and 
a GOSUB has been encountered. 



No DEF statement appeared for user function FNx. 



xxxxx UNABLE TO OPEN xxxxx 



xxxxx ZERO TO NEG POWER 



An attempt to open the named file failed. The file is prob- 
ably not present or has another account number or name. 



An exponentiation operation attempted to raise zero to a 
negative power. 
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APPENDIX A. SUMMARY OF BASIC STATEMENTS 



The complete set of BASIC statements is shown below. Capital letters indicate syntax that is required as shown. Lowercase 
letters designate general items. Command parameters enclosed by braces (| }) indicate a required choice. Parameters en- 
closed by brackets ([]) are optional. Ellipsis marks (...) denote multiple occurrences of the preceding bracketed parameter. 
Unless otherwise noted, "variable" means either a simple or a subscripted variable. If the initial line number of a statement 
is enclosed by brackets, the statement may be executed directly in the on-line mode of operation. 

Statement 



line: [ s and/or characters to 132 maximum] 
[line] CHAIN xname 



; password 
;password:acct 
:acct 
:acct;password 



'[line] CHAIN LINK xname 



/password 
;password:acct 
:acct 
:acct;password 



n- 1 ruAKirp fi S ' ring l TO letterl 
Uine] CHANGE IxtrepJ 



[line] CLOSE 



. letter TO string . 
:stream 



1^1 [characters to end of line] 



line DATA 



[±]constant 

aconst 

tstring 



[±]constant 

aconst 

tstring 



line DEF FN letter (simple variable[,simple variable], . . ) = expression 

[line] DIMJj^f} (dimx[,dimx]) [,{j°J£ $ '} (dimx[,dimx])] . . . 

[line] END 

[line] ENDFIl.E:stream, {^ me } 

line FOR simple variable = expression TO expression [STEP expression] 

[Una] GET[: StreamDk e y] ,]{-';^} [,{£#"}]... 

[line] GOSIB line 

[line] GOTO line 

t[line] GOTO line [,line]. . . ON expression 



[line] IF 



CP-V only. 



expr 

aconst 

string* 



operator 



expr 
aconst 
strexp 1- 
xstrexp*" 



[THEN 1 .. 
1 iGOTOl lme 
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r,. t ,K,r,,,-r r ri tt [variable] V [variable 1~| 

[line] INPUT [:srream[;key],] [^.^ ) [{^.^ jj 

[line] INPUT -| $ ., , . ) 

lany other character] 



[line] [LET] 



variab I e[, variable], 
string = strexp 



expression 
aconst 
. xstrexp* 



variable[,variable]. . . 
string = strexp 



expression 
aconst 



xstrexp 



[line] MAT aname = (expression) *aname 

[line] MAT aname = aname 

[line] MAT aname = aname |±[ aname 

[line] MAT aname = aname * aname 

[line] MAT aname = CON[(dimx[,dimx])] 

[line] MAT aname = IDN \f}. mX \ , t L . ... 1 

J L(dimx), any characters to end of I inej 

[line] MAT aname = INV (aname[,simple variable]) 

[line] MAT aname = SIM (aname [, simple variable]) 

[line] MAT aname = TRN (aname) 

[line] MAT aname = ZER[(dimx[,dimx])] 

[line] MAT GET [:stream[;key],] adescr[,adescrj . . . 

[line] MAT INPUT [:stream[;key],] adescrQadescr]. . . 

[line] MAT PRINT [:stream[;key],] aname U'X anamel . . . PI 

[line] MAT PUT [:stream[;key],] adescr[,adescr] . . . 

[line] MAT READ adescr[,adescr] . . . 

[line] MAT SIZE aname (dimx[,dimx]) Qaname(dimx[ / dimx])] . . . 

line NEXT simple variable 

*Lline] ON expression] THFf . f line[,line] . . . 



[line] OPEN fileid [,] 



O 



TO :stream, 



[GET 1 



{input! H ^ UPDATE ^ 

(PUT | (ON ] 

IPRINTJ L,J I OVER J 



[[,] TFILE] 



f CP-V only. 
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[line] PAGE 
[line] PAUSE 



[line]] | [:stream[;key],] 



text string 
expression 
, xstrexp* 



text string [xstrexp] 

r • -i n 

f,l , expression 



[line]j PRINT J [stream&key],] USING I 

[expression 
[line] PUT [:streamQkey],] aconst 

. xstrexp' 

[line] J [[characters to end of line] 



n. t nr a r^f variable] ["[variable! 
[line] READ] . . t \,\ . . t 

L J [string' J r [string 7 J 

[line] RESTOREQine] 
[line] RETURN 
[line] STOP 



ine 



expression 



xstrexp' 
expression 
text string 



expression 

aconst 

xstrexp 



CP-Vonly. 
Must not begin with a '+'. 
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APPENDIX B. SUMMARY OF BASIC COMMANDS 



The BASIC commands are shown below. Capital letters indicate syntax that is required as shown. Lowercase letters 
designate generic items. Command parameters enclosed by braces ({ !) indicate a required choice. Parameters enclosed by 
brackets ([ ]) are optional . Ellipsis marks (. . .) denote multiple occurrences of the preceding bracketed parameter. 

Command 



ACC[OUNT] [name] 

BAS[lC] f 

BYE 

cat[alogV 



DEL 



[ETE]f!! ne .. } [,{!!" 
Nine - line J |_ llin 



e„ - line .-, 
3 4 



DEL[ETEjxname 

ent[er BASIC] [l] 

EXECUTE] 1 " line [-line ] 



EXTRACT] 



line "IT Nine 1 

line - line _ J (_' lline - line J 



FASfrJ[time] 
FIL[E]lpAC[K]J f 

LK[T][] 



ine 
line - line _, 



"Nine l" 

'lline. - line J 
3 4 - 1 



LOA[D] [xname] 
NAM[E] [xname] 



NUL[L] f 



arr[ays] 

strQngs] 

sim[vars] 



OFF r 

PAS [SWORD] [name] 

PRO[CEED] 

RE N [UMBER] [l ! ne [, lineal ncr]]] 



CP-V BASIC only. 
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Command 



RUN [time] 

SAV[E oCJxnamef;!" 6 .. ][\\\ ne , ] 
IVERJ U ine i " line 9 J |_ Uine„ - line J 

c-p T f$ = positive integer' | 

I letter = digits [,letter - digits] . . J 



ne_ - line.. 
3 4 



STA[TUS] 
SYS[TEM] 
WEA[VE] f [xname] 
WID[TH]digits 



f CP-V BASIC only. 
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APPENDIX C. BASIC INTRINSIC FUNCTIONS 



Function 


Result 


SIN(arg) 
COS(arg) 
TAN(arg) 
ATN(arg) 


Calculates sine of argument in radians. 
Calculates cosine of argument in radians. 
Calculates tangent of argument in radians. 
Calculates arctangent of unitless argument in radians. 


EXP(arg) 


_ . . .,,.. i . (argument) 
Calculates exponential functions, that is e 


ABS(arg) 


Calculates absolute value of argument. 


LOG(arg) 
LGT(arg) 


Calculates natural logarithm (base e) of the argument. 
Calculates common logarithm (base 10) of the argument. 


SQR(arg) 


Calculates square root of argument. 


INT(arg) 


Acquires the integer part of the argument, that is, the greatest integer that is less than or equal to the 
argument. 


SGN(arg) 


Identifies algebraic sign of argument, and produces a -1 for negative arguments, a for 0, and a +1 
for positive arguments. 


RND(arg) 


Produces, for each call, the next element of a sequence of uniformly distributed random numbers that are 
greater than but less than 1 . If arg is for the first RND call of a program, the identical sequence of 
random numbers will be generated if the program is rerun and arg is not changed. Otherwise, an unre- 
peatable sequence will be generated. 


DAY(arg) 

TIM (org) 
YER(arg) 


Supplies the calendar day. If the argument is 0, the BTM output form is mm/dd (as in 03/07 for March 7) 
and the BPMand CP-V output form is mon/dd (as in MAR 07). If the argument is nonzero, the output form 
is a floating-point number whose integer part represents the month, and whose fractional part represents 
the day of the month divided by 100. For example, 3. 07E0 represents March 7. 

Supplies the time of day. If the argument is 0, the output form is hh:mm, as in 15:09. If the argument is 
nonzero, the output form is a floating-point number whose integer part represents the hour and whose 
fractional part represents the minutes divided by 60. For example, 15. 15E0 represents 3:09 PM. 

Supplies the year. If the argument is 0, the output form is 19yy, as in 1969. If the argument is nonzero, 
the output form is a floating-point number whose value is equal to the year, as in 1969. 0E0. 


MAX(arg ) 

MIN(arg ) 
n 


Returns the maximum value in the list of arguments. 
Returns the minimum value in the list of arguments. 


TAB(arg) 


Advances the print device to the column designated by the argument, and should only be used in a PRINT 
statement. TAB cannot be used to backspace the print device. 


PRC(arg) 


Specifies the number of significant digits in printed output, and is used only in a PRINT statement. An 
argument of specifies 6-significant-digit output format, and a nonzero argument specifies 16- 
significant-digit output. 
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The following functions are in CP-V BASIC only. 



Function 


Result 


CSC (org) 

SEC(arg) 

COT(arg) 


Calculates cosecant of an argument in radians. Overflow results in an error message and termination of 
execution. 

Calculates secant of an argument in radians. Overflow results in an error message and termination of 
execution. 

Calculates cotangent of an argument in radians. Overflow results in an error message and termination 
of execution. 


ASN(arg) 
ACS(arg) 


Calculates arcsine of a unitless argument, in radians. If the absolute value of the argument is greater 
than 1.0, an error message is printed and execution is terminated. Resolution of results is restricted to 
the two quadrants from -tt/2 to "n/2. 

Calculates the arccosine of a unitless argument, in radians. If the absolute value of the argument is 
greater than 1.0, an error message is printed and execution is terminated. Resolution of results is re- 
stricted to the two quadrants from to tt „ 


HSN(arg) 
HCS(arg) 
HTN(arg) 


Calculates hyperbolic sine of an argument. Overflow results in an error message and termination of 
execution. 

Calculates hyperbolic cosine of an argument. Overflow results in an error message and termination of 
execution. 

Calculates hyperbolic tangent of an argument. 


LTW(arg) 


Calculates logarithm, base two, of an argument. 


DEG(arg) 
RAD(arg) 


Converts argument from radians to degrees., 
Converts argument from degrees to radians. 


LEN(strexp) 


Returns current number of characters in string expression, as floating-point number. 


VAL(strexp) 


Returns numericvalue of string expression as floating-point value. Error exit if string expression notnumeric. 


STR(expression 
[, rstring]) 


Converts numeric value of expression to string format. Optional rstring argument permits specific format- 
ting. If second argument is not used, standard print output format is used. 


KEY(arg) 


Returns the value of the key most recently accessed on the I/O stream specified by the argument. 
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APPENDIX D. SUMMARY OF BASIC OPERATING PROCEDURES 



BASIC is always running in one of three modes; edit, 
compile, or execute. Compile is a transitory mode, leading 
directly to execution, if successful, or to edit, if failure 
occurs. In on-line operation, transition from mode to mode 
may occur frequently because of operator actions. 

The variable context of principal interest during BASIC op- 
erations includes source text, object code, array and string 
storage, DATA list pointing control, GOSUB-RETURN status 
control, printer line width control, output precision control, 
runfile identification parameters, parametric dimensioning, 
and maximum string length. 

The lists below present a summary of the effects of operator 
action (command and statement input) on operating mode 
and context. 



GROUP 1 

The following commands do not change operating mode and 
affect context only as the individual command explicitly 
indicates: 

BASIC No context change. 

CATALOG No context change. 

LIST No context change. 

STATUS No context change. 

WIDTH Set printer width. 

ENTER BASIC Set output precision control. 

NAME Runfile identification. 

ACCOUNT Runfile identification. 

PASSWORD Runfile identification. 

SAVE (ON or OVER) Generates text output file. 

FILE (not FILE PACK) Outputs runfile. 

NULL (any option) Zeros selected context. 

DELETE xname Deletes named file. 

GROUP 2 

Input of any of the following commands leaves BASIC in 
edit mode, requiring recompilation or normal compilation 
of object code before subsequent execution. If a Group 2 
command is input while in execution mode, DATA list 



pointing control and GOSUB-RETURN status are sav* 
Other context is modified as indicated. 

DELETE Removes line from active use. 

EXTRACT Removes program except spec- 

ified line(s). 

Line insertion Adds line to active use. 

FILE PACK Releases storage of deleted 

lines. 

LOAD (while in edit Acts as series of line 
mode) or WEAVE insertions. 

CLEAR ARRAYS or Releases storage. 

STRINGS 



SET 



Sets parametric dimensioning 
letter, or maximum string 
length. 



GROUP 3 



Input of any of the fol lowing commands leaves BASIC in 
edit mode and requires normal compilation of object code 
before subsequent execution. Context of DATA list point- 
ing and GOSUB-RETURN control is set to initial conditions. 
Other context is modified as indicated. 



LOAD (while in 
execute mode) 

CLEAR 



RENUMBER 



New text. 



Clears arrays, strings, text, 
and object code. 

Generates output file of text, 
does CLEAR, and loads num- 
bered text. 



GROUP 4 

Input of either FAST or RUN initiates normal compilation 
of object code from the current program text. Compilation 
is in fast or safety mode as indicated. In addition to object 
code generation, string-array space is reallocated, but con- 
text is saved, as possible, where indicated by new absolute 
dimensioning. 

If errors occur during compilation, messages are generated 
and object code generation is aborted, as is array-string 
storage reallocation. Return is in the edit mode, as per 
Group 3. 

If no errors occur, execution is initiated at start of program 
with DATA list pointing and GOSUB-RETURN control 
initialized. 
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DIRECT STATEMENTS 

There are three categories of direct statements, in terms of 
operational impact: DIM statements, statements with in- 
cluded line-number references, and statements with no line- 
number references. 

DIM, as a direct statement, causes updating of storage re- 
quirements for arrays and strings and returns control in edit 
mode. Rules for command Group 2 apply. 

Direct statements without line references are compiled and 
executed independently of other program text or object 
code. If errors occur, messages are output and execution 
is aborted. Control is returned to console in same mode as 
before input of direct statement. 

Direct statements with line references require presence of 
object code. If mode at input is execute, the direct state- 
ment is compiled and executed. If mode is edit, recompi lo- 
tion of program is initiated. Compilation is aborted by any 
error, in which case return is in edit mode. If recompi lo- 
tion is successful, direct statement is compiled and exe- 
cuted. Return to console is in execute mode. 



ON-LINE VERIFICATION 

On-line verification is a general term for various functions 
that may be performed in checking out and debugging a 
program. The following examples are typical: 



>GO TO 35 



>PRINT A(l,l), 
A(1,2),A(5,5) 



Branch to a desired statement 
within a program and proceed 
with execution. 

Verify assignment of values in an 
array. 



>LET Al = 12.5 Modify a value then continue at 
>GO TO 20 selected point. 

Under CP-V, any valid BASIC statement, except for DATA, 
DEF, Image, FOR, or NEXT, may be typed without a leading 
line number. This will indicate that the statement should 
be executed immediately. 

In BTM BASIC, the statements DATA, DEF, DIM, Image, 
FOR, NEXT, GOTO ... ON, and ON ... GOTO, may 
not be direct. 

Under BTM, when in the editing mode, attempted use of the 
direct statement capability will result in the error message 

RUN? ILLEGAL 



DESK CALCULATOR MODE 

In CP-V BASIC, the desk calculator mode can be entered, 
from the editing mode simply by typing direct statements. 



In BTM BASIC, the programmer enters the desk calculator 
mode by giving a CLEAR command followed by RUN or FAST, 

The desk-calculator mode uses the computer in the simplest 
and most direct manner, working without a stored program 
or stored data. The problem to be solved is usually com- 
bined with a PRINT statement, preceded if necessary by a 
LET or another form of an assign statement. Typical exam- 
ples of BASIC in the desk-calculator mode are 

>PRINT 1.085 3.6 

>PRINT SQR (12 * 12+ 15 * 15) 

>PRINT LOG(SIN (5.12)) 

>PRINT SQR (87) 



PROCEED 

PROCEED is a command to return to an interrupted activity 
(see Chapter 4). Three responses are possible: (1) immedi- 
ate return to interrupt point, (2) recompile and return to 
"next statement", or (3) indicate ILLEGAL and return to 
console in edit mode. The response depends on the cate- 
gories of commands that have been input since the interrupt. 
In general, PROCEED is legal only if execution of a pro- 
gram has been interrupted; it always terminates the interrupt 
state. If any Group 3 or 4 commands have been input since 
BREAK key activation, PROCEED is illegal. 

If Group 2 commands have been input since BREAK key ac- 
tivation, and PROCEED is legal, recompilation is initiated. 
Errors during recompilation cause error message generation, 
abort object code generation and array-string storage re- 
allocation, and cause return to console in edit mode. If 
recompilation is successful, execution is initiated at the 
"next statement" of the interrupted and modified program. 

If only Group 1 commands have been input since BREAK key 
activation, PROCEED causes return to the interrupted 
activity. 



BREAK-PROCEED LOGIC 

In Batch/BTM BASIC, BREAK may interrupt execution at any 
point, but PROCEED resumes execution only if intervening 
console actions have not modified object code. In CP-V 
BASIC, only CLEAR, LOAD, or RENUMBER, or failure to 
correct a diagnosed error prohibit PROCEED from resuming 
execution following a BREAK. 

If a BREAK occurs during execution of a statement, that 
statement is fully executed and the line number of the next 
statement to be executed is saved before user is given con- 
sole control. PROCEED then returns to the saved line num- 
ber. If that line has been edited out or is not an executable 
statement, execution resumes at the next executable line. 
If a BREAK occurs in response to an input statement (after 
a ? prompt character), execution is halted. 
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APPENDIX E. FORMAT OF BINARY DATA FILES FOR PUT AND GET OPERATIONS 



The PUT and MAT PUT operations in BASIC create data 
files in the internal format described in Table 3 with a 
physical record size of 120 bytes. 

Table 3. Internal Format of Data Files 



Byte 


Coding 


Meaning 





X'3C 


Physical record. 


1 


Checksum 


Sum of bytes in record, not 
counting checksum byte. 


2,3 


Record size 


Number of bytes used 
(120 or less), including 
control bytes. 


4...n 


Data 


Either doubleword 
floating-point or aconst 
doubleword or both. 


n+1 


X'3C 


End of physical or 
logical record. 



Table 


3. Internal Format of Data Files (cont. ) 


Byte 


Coding 


Meaning 


n+2 
n+3, n+4 


X'BD 1 

Physical 
record number 


In numerical order, 
from 0. 



Normally a record contains 1 12 noncontrol bytes (^floating- 
point values or aconsts). The last record in a file may con- 
tain fewer used bytes but still contains 120 total bytes. The 
control word — bytes n+1 to n+4 — is repeated in this case as 
bytes 116 to 119. 

Figure 7 shows a file containing three records of numeric 
and aconst data, with the record contents given in hexa- 
decimal format. The values were created with the program 
shown in Figure 8. In Figure 7, the value 1 occupies words 1 
and 2 of record 1000, the aconst ABCDEF occupies words 13 
and 14 of record 2000, and the aconst 7890 occupies words 25 
and 26 of the same record but followed in word 27byanend- 
of-record control word forced there by the flush operation. 



KEY= X 


001000' 


120 


BYTES 




00000 


3C090078 


41100000 


00000000 


41200000 


00004 


00000000 


41300000 


00000000 


41400000 


00008 


00000000 


41500000 


00000000 


41600000 


ooooc 


00000000 


41700000 


00000000 


41800000 


00010 


00000000 


41900000 


00000000 


00000000 


00014 


00000000 


00000000 


00000000 


41900000 


. 00018 


00000000 


41800000 


00000000 


41700000 


. 0001C 


00000000 


3CBDO0OO 






KEY= X 


002000' 


120 


BYTES 




00000 


3CA60070 


41600000 


00000000 


41500000 


00004 


00000000 


41400000 


00000000 


41300000 


00008 


00000000 


41200000 


00000000 


41100000 


OOOOC 


00000000 


0001C1C2 


C3C4C5C6 


0001C7C8 


00010 


C9D1D2D3 


0001D4D5 


D6D7D8D9 


0001E2E3 


00014 


E4E5E6E7 


0001E8E9 


00000000 


0001F1F2 


00018 


F3F4F5F6 


0001F7F8 


F9F00000 


3CBD0001 


0001C 


00000000 


3CBD0001 







Figure 7. Contents of Sample File 
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KEY= X 


003000' 


120 


BYTES 




00000 


3C030028 


41100000 


00000000 


41200000 


00004 


00000000 


41300000 


00000000 


41400000 


00008 


00000000 


3CBD0002 


00000000 


41100000 


000 OC 


00000000 


0001C1C2 


C3C4C5C6 


0001C7C8 


00010 


C9D1D2D3 


0001D4D5 


D6D7D8D9 


0001E2E3 


00014 


E4E5E6E7 


0001E8E9 


00000000 


0001F1F2 


00018 


F3F4F5F6 


0001F7F8 


F9F00000 


3CBD0001 


0001C 


00000000 


3CBD0002 







Figure 7. Contents of Sample File (cont. ) 



100 OPEN 'PUT',0 






110 PUT 1,2,3,4,5,6,7,8,9,0 






120 PUT 0,9,8,7,6,5,4,3,2,1 






130 PUT 'ABCDEF' , 'GHIJKL' , 'MNOPQR' 


'STUVWX' 


'YZ* 


140 PUT '123456' , '7890' 






150 PUT** 






160 PUT 1,2,3,4,** 






170 CLOSE 






180 END 







Figure 8. Program Used to Generate Figure 7 
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APPENDIX F. I/O CONTROL 



Source statements and INPUT (except INPUT :stream) data 
is read via M:SI. Data output produced by LIST and PRINT 
(except PRINT :stream) is written via M:SL. These DCBs 
are normally defaulted to the terminal in the on-line mode. 

BASIC will not honor assignments to or from magnetic tape. 

If M-.SI or M:SL has been assigned by a CP-V SET command 
(on-line) or [ASSIGN (off-line) the source input or list 
output will be modified accordingly. It is generally inad- 
visable to alter these I/O assignments. 



Normal DCB assignments are shown in Table4. Anex^. ^e 
of using SET to assign a DCB is 

!SET M.-SL/FILE6 

The above SET command given before calling BASIC causes 
LIST or PRINT output to be assigned to FILE6. 

Since BASIC expects an I/O stream to be explicitly opened 
to a file specified in an OPEN statement, it is not possible 
to SET any of the four DCBs used for stream I/O before 
calling BASIC. 



Table 4. Normal DCB Assignments 



Monitor 


DCB 


Definition 


Assignment 


CP-V & BPM 


M.-SI 


Source Input 




Users Console or Card Reader 




M:EI 


Stream 1 




File 




M:EO 


Stream 2 




File 




M:CI 


Stream 3 




File 




M:LO 


Stream 4 




File 




M:DO 


Diagnostic Output 




Users Console or Line Printer 




M:SO 


Source Output (Save, 


File, Load. Renumber) 


File 




M:SL 


List/Print Output 




Users Console or Line Printer 


BTM 


M:EO 


Stream 1 




File 




M:EI 


Stream 2 




File 




M:CI 


Stream 3 




File 




M:SO 


Source Output (Save, 


File, Load, Renumber) 


File 
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APPENDIX G. BASIC CONCORDANCE PROGRAM 



The BASIC Concordance program fakes any BASIC source 
program and produces a listing of the following items along 
with the line numbers on which they are used: 

1. Line number references 

2. User-defined functions 

3. Arrays 

4. Strings 

5. Simple variables 

For each use of one of these items, the concordance output 
will contain an entry of the line number of the use. Thus, 
multiple appearances of a line number may occur for a 
single item in the output. 

The program does not discriminate between string scalars 
and string arrays, but rather classifies both as strings. 
(Note that the same letter cannot be used as both a string 
scalar and a string array, thus no confusion can result.) The 
program does discriminate between monstring arrays and 
simple variables with the same name, since these are two 
different entities. 

Dummy arguments in user-defined function definitions are 
not displayed, in order to prevent confusion between these 
dummies and normal simple variables of the same name. 

The source language for the Concordance program is Xerox 
Extended FORTRAN IV. It existsas one program containing 
the main program and seven internal subprograms. The 
source deck must be compiled into a relocatable object 
module (ROM). The ROM must then be linked to form a 
load module. During the linking process, a record for the 
DCB F:l must appear in the assign/merge record for the 
log-on account. This can be accomplished by using the 
!SET command (if on-line) or the 1ASSIGN command (if in 
batch) for F:l prior to the LINK command. 

To use the program, the user must set or assign F:l to indi- 
cate the location of the BASIC source program to be used 
as input. This may be a file on disk or labeled magnetic 
tape or any input device capable of transmitting a BASIC 
source program. After setting F:l, the load module created 
by the linking process is invoked. Output will appear on 
the default destination for M:LO. If the user wishes to di- 
vert the output, he may do so by setting or assigning F: 108 
prior to invoking the load module. 

At the completion of processing, the following terminal mes- 
sage will be output: 

*ST0P* 1 

The program expects as input a BASIC source program that 
can be compiled by the Xerox BASIC compiler supplied with 



either CP-V or BTM with error diagnosis. Certain errors that 
would be detected by those compilers are also detected by 
the Concordance program. If such is the case, the output 
line will be preceded by the message 

ILLEGAL SYNTAX ON LINE XXX 

where xxx is the sequential record number of the line in 
question in the input file. 

Certain other syntactic errors that would be diagnosed by 
the compiler are not detected by the Concordance program 
and may cause extraneous entries in the output. 

If an irrecoverable read error occurs in processing the input, 
the following message will be output: 

IRRECOVERABLE READ ERROR ON LINE XXX 



where xxx is as described above. 

Example: 

IF0RT4 SOURCE ON BO 

OPTIONS > NS 

!SET F:l 

!LINK BO ON BACON 

! SET F : 1 PROG 

! BACON . 

The first and second lines of the above example cause 
compilation of the concordance program from the file 
SOURCE, previously created by a batch job (see the BPM/ 
BP, RT Reference Manual, 90 09 54). Next, the F:l DCB 
is set into the assign/merge record. The load module 
BACON is then formed by the ILINK command, using the 
file BO (created by the FORTRAN compilation) as input. 
The user may then assign F:l to any BASIC program file 
(e.g., PROG) by use of a 'SET command (on-line) or 
1ASSIGN command (off-line). The concordance program 
is then executed by giving the command IBACON. This is 
followed by a concordance listing such as the one shown 
below. Note that the linking process need be done only 
once, but F:l must be reassigned each time that a new con- 
cordance is to be produced. 



LINE NUMBER REFERENCES 



66 



4 2 
6 



44 
54 



62 



USER DEFINE FUNCTIONS 
NONE 

ARRAYS 
NONE 

STRINGS 
NONE 
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SIMPLE VARIABLES 



A: 


12 


14 


14 






I: 


2 
22 


8 
24 


20 


20 


20 


X: 


37 










Al : 


3 


3 


5 


5 


7 


*STOP* 


1 











20 



The BASIC Concordance program can be run as an executing 
Extended FORTRAN IV program in any Xerox operating system 
that contains the Xerox Extended FORTRAN IV processor. 



A source deck (-34 element) and binary relocatable deck 
(-24 element) of the BASIC concordance are available 
from the Xerox Software Library (Catalog No. 706292). 
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APPENDIX H. EBCDIC CHARACTER CODES 



EBCDIC 








Value 


Character 


Meaning 


Remarks 





NUL 


null 


through 31 are control codes. 


1 


SOH 


start of header 


On 2741 terminals, SOH is PRE. 


2 


STX 


start of text 


On 2741 terminals, STX is BY. 


3 


ETX 


end of text 


On 2741 terminals, ETX is RES. 


4 


EOT 


end of transmission 


On 2741 terminals, EOT is ATTN. 


5 


HT 


horizontal tab 


0,6,7,9-1 1 and 14-15 are idles for 
2741 terminals. 


6 


ACK 


acknowledge (positive) 




7 


BEL 


bell 




8 


BS or EOM 


backspace or end of message 


EOM is used only on Xerox Keyboard/ 


9 


ENQ 


enquiry 


Printers Models 7012, 7020, 8091, 


10 


NAK 


negative acknowledge 


and 8092. 


11 


VT 


vertical tab 




12 


FF 


form feed 




13 


CR 


carriage return 


CR outputs CR and LF. 


14 


SO 


shift out 




15 


SI 


shift in 




16 


DLE 


data link escape 




17 


DC1 


device control 1 


On Teletype terminals, DC1 is X-ON. 


18 


DC 2 


device control 2 


On 2741 terminals, DC 2 is PN. 


19 


DC3 


device control 3 


DC3 is RS on 2741s, X-OFF on Teletypes. 


20 


DC4 


device control 4 


On 2741 terminals, DC4 is PF. 


21 


LF or NL 


line feed or new line 


LF outputs CR and LF. 


22 


SYN 


sync 




23 


ETB 


end of transmission block 


On 2741 terminals, ETB is EOB. 


24 


CAN 


cancel 




25 


EM 


end of medium 




26 


SUB 


substitute 


Replaces characters with parity error. 


27 


ESC 


escape 




28 


FS 


file separator 


16, 17, 22, 24, 25, and 27-30 are idles for 


29 


GS 


group separator 


2741 terminals. 


30 


RS 


record separator 




31 


US 


unit separator 




32 


LF only 


line feed only 


32 through 47 are used for output only. 


33 


FS 




These codes are duplicates of the label 


34 


GS 




entries that caused activation. These 


35 


RS 




entries output a single code only and 


36 


US 




are not affected by any special func- 


37 


EM 




tional processing 


38 


/ 






39 


t 






40 


= 






41 


CR only 


carriage return only 




42 


EOT 






43 


BS 






44 


) 






45 


HT 


tab code only 




46 


LF only 


line feed only 




47 


SUB 






48 


ESC F 


end of file 


48 through 63 cause special functions 


49 


CANCEL 


delete all input and output 


to be performed. 


50 


ESC X 


delete input line 
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EBCDIC 








Value 


Character 


Meaning 


Remarks 


51 


ESC P 


toggle half-duplex paper tape mode 




52 


ESC U 


toggle restrict upper case 




53 


ESC ( 


upper case shift 




54 


ESC ) 


lower case shift 




55 


ESC T 


toggle tab simulation mode 




56 


ESC S 


toggle space insertion mode 




57 


ESC E 


toggle echo mode 




58 


ESC C 


toggle tab relative mode 




59 


ESC LF 


line continuation 


59 toggles the backspace edit mode for 


60 


X-ON 


start paper tape 


2741 terminals. 


61 


X-OFF 


stop paper tape 




62 


ESC R 


retype 




63 


ESC CR 


line continuation 




64 


SP 


blank 




65 








66 








67 








68 








69 








70 








71 








72 








73 








74 


^ or " 


cent or accent grave 


Accent grave used for left single quote. 


75 


. 


period 


On Model 7670, v notavailable, and 


76 


< 


less than 


/= 180. 


77 


( 


left parenthesis 




78 


+ 


plus 




79 


lor i 


vertical or broken bar 


On Model 7670, ! notavailable, and ! = 90. 


80 


& 


ampersand 




81 








82 








83 








84 








85 








86 








87 








88 








89 








90 


! 


exclamation point 


On Model 7670, ! is 1 . 


91 


$ 


dollars 




92 


* 


asterisk 




93 


) 


right parenthesis 




94 


/ 


semicolon 




95 


~or — i 


tilde or logical not 


On Model 7670, ~ is not available, 
and— i = 106. 


96 


- 


minus, dash, hyphen 




97 


/ 


slash 




98 








99 








100 








101 








102 








103 








104 








105 
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EBCDIC 








Value 


Character 


Meaning 


Remarks 


106 




circumflex 


On Model 7670^15— i. On Model 7015 


107 


i 


comma 


^ is A (caret). 


108 


% 


percent 




109 




underline 


Underline is sometimes called "break 


110 


> 


greater than 


character"; may be printed along 


111 


? 


question mark 


bottom of character line. 


112 








113 








114 








115 








116 








117 








118 








119 








120 








121 








122 


• 


colon 




123 


# 


number 




124 


@ 


at 




125 


i 


apostrophe (single quote) 




126 


= 


equals 




127 


ii 


quotation mark 




128 








129 


a 






130 


b 






131 


c 






132 


d 






133 


e 






134 


f 






135 


g 






136 


h 






137 


I 






138 








139 








140 








141 








142 








143 








144 








145 


j 






146 


k 






147 


1 






148 


m 






149 


n 






150 


o 






151 


P 






152 


q 






153 


r 






154 








155 








156 








157 








158 








159 








160 








161 
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EBCDIC 








Value 


Character 


Meaning 


Remarks 


162 


s 






163 


t 






164 


u 






165 


V 






166 


w 






167 


X 






168 


y 






169 


z 






170 








171 








172 








173 








174 








175 


1 


logical and 




176 








177 


\ 

i 


backslash 




178 


left brace 


On 2741 terminals,] is output as (. 


179 


\ 


right brace 


On 2741 terminals,} is output as ). 


180 


[ 


left bracket 


On Model 7670, [ is c 7 . On Model 7015, [is 1. 


181 


] 


right bracket 


On Model 7670,] is 1 . On Model 7015,] is"^- 


182 








183 








184 








185 








186 








187 








188 


[ 


left bracket 




189 


] 


right bracket 




190 


lost date 


lost data 




191 


~ 1 


logical not 




192 


SP 


blank 


Output only. 


193 


A 






194 


B 






195 


C 






196 


D 






197 


E 






198 


F 






199 


G 






200 


H 






201 


I 






202 








203 








204 








205 








206 








207 








208 








209 


J 






210 


K 






211 


L 






212 


M 






213 


N 






214 


O 






215 


P 






216 


Q 






217 


R 
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Value 


Character 


Meaning 


Remarks 


218 








219 








220 








221 








222 








223 








224 


- 


minus 


Output only. 


225 








226 


S 






227 


T 






228 


U 






229 


V 






230 


w 






231 


X 






232 


Y 






233 


z 






234 








235 








236 








237 








238 








239 








240 









241 


1 






242 


2 






243 


3 






244 


4 






245 


. ' 5 






246 


6 






247 


7 






248 


8 






249 


9 






250 








251 








252 








253 








254 








255 









Appendix H 71 



APPENDIX I. SAMPLE BASIC PROGRAMS 



This appendix contains sample programs of varying degrees 
of complexity, showing a few of the many possible appli- 
cations of Xerox BASIC. The reader may find it helpful to 
consider alternative methods or other applications of the 
techniques used in these programs. 



SNOWFLAKE SIMULATION 

The program shown in Figure 9 simulates the almost infin- 
ite variety of geometric forms assumed by snowflakes. Each 
"flake" is formed by adding random accretions adjacent to 
two radii approximately 60 degrees apart in a square matrix. 
A second sector is formed by "rotating" the first one clock- 
wise by 60 degrees and the pattern is then replicated in 
the remaining quadrants of the matrix. The contents of the 
matrix are then printed, with an asterisk representing the 
value 1. The BREAK key is used to stop the snowstorm. 



WORD GUESSING GAME (CP-V) 

The program shown in Figure 10 picks a word at random 
from a previously created file named WORDS. Such a file 
is easily built using the Edit subsystem; see the Edit BUILD 
command in the CP-V/TS Reference Manual 90 09 07. 
The terminal user attempts to guess what word has been 
chosen. Any letters guessed correctly are printed by the 
program, until the entire word is typed correctly by the user. 
It should be easy to think of ways to make the game more 
interesting. 



LOAN INTEREST CALCULATION (CP-V) 

This program, shown in Figure 11, calculates monthlypay- 
ments for loans made at a given rate of interest and repaid 
over a specified time period. Note that the printing of the 
initial explanatory information is omitted if the user simply 
gives a carriage return following the first prompt (see lines 
100-140). The user is requested to type values for princi- 
pal, monthly payment, interest rate, and total number of 
months. If one of these parameters is entered as zero, 
its value is calculated from the other three. 



CELLULAR AUTOMATA 

The program shown in Figure 12 demonstrates the behavior 
of a type of cellular automata. Such automata are rep- 
resented by using numeric values to simulate the states of 



"cells" in a regular geometric pattern such asa grid of unit 
squares. The automata simulated by this program we 1 
devised by mathematician John Horton Conway and described 
by Martin Gardner in the October, 1970 issue of Scientific 
American magazine. 

In this simulation, a cell is either "a I ive" or "dead" . Living 
cells are displayed by printing an asterisk and dead cells 
are shown as blanks. Each cell has a neighborhood com- 
prising 8 contiguous cells (4 orthogonal and 4 diagonal). A 
dead cell becomes alive only if it has exactly 3 living neigh- 
bors, and a living cell remains alive only if it has either 
2 or 3 living neighbors. All changes in state are considered 
to occur simultaneously throughout the entire grid. Each 
successive configuration is called a "generation". 



The terminal user defines the initial configuration by typing 
the X, Y coordinates of all living cells (e. g. , 1,1 2,1 3,1 
4,1 5,1 or 1,1 2,1 2,2 2,3 3,2). The program then applies 
the transition rules for each generation and displays there- 
suit. The BREAK key is used to halt the program. 



This program stores the X,Y coordinates of all living cells 
asa "sparse matrix", to reduce array storage requirements, 
and the display is automatically positioned to minimize the 
printing of blank lines or columns. 



MAGIC SQUARES 

The program shown in Figure 13 generates and displays 
"magic squares" of odd order, by a method attributed to 
Bachet de Meziriac. Using this method, integers 1 through 
N**2 are arranged in N diagonal rows. This diamond- 
shaped pattern is then transformed into a square array by 
converting row and column coordinates to their residues 
modulo N. The result is a magic square of order N in which 
the summation of each of the columns, rows, and main di- 
agonals is equal to (N**3+N)/2. 



ARITHMETIC COMBINATIONS 

This program, shown in Figure 14, shows the various ways 
in which positive integers can be added to form a given 
sum. Note that combinations such as 1+2 and 2+1 are not 
considered identical, although the program can easily be 
modified to treat such combinations as being the same. 
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100 Din A (63, 63) 8 ■'•SET POINT PROBABILITY DENSITY 

120 P=RMDU)/2+.l 8 HAT A=ZER 8 *SET FLAKE SIZE 

150 FOR R=2*INT(RND(1)*10+1) TO 32 STEP 2 S *BUILD TUO RADII 

170 A(R,R/2+16) ,A(R,48-R/2)=1 S NEXT R 8 *BUILD ACCRETIONS 

200 FOR R=2 TO 30 STEP 2 S FOR C=R/2+2 TO 32 S IF A(R,C-2)-0 THEN 250 

230 IF RNDU)<P THEN 2S0 8 A (R,C) , A (R,64-C) =1 

700 NEXT C S NEXT R S -''ROTATE SECTOR 60 DEIGREES 

2S0 FOR R=2 TO 30 STEP 2 8 FOR C=18+R/2 TO 48-R/2 STEP 2 S IF A(R,C)=0 THEN 320 

310 A(R+C-R/2~16,49-R/2+.5*<C- (18+R/2) ) ) -1 

370 NEXT C S NEXT R S *REPLICATE QUADRANT 

350 FOR R=2 TO 32 STEP 2 S FOR C=32 TO 62 S IF A(R,C)-0 THEN 390 

3S0 A(64-R,C) ,A(64-R,64-C) ,A(R,64-C)=1 

330 NEXT C 8 NEXT R S ; S *PRINT FLAKE 

430 FOR R=2 TO 62 STEP 2 S F=0 S FOR C=2 TO 62 S IF A(R,C)=0 THEN 490 S F=l 

480 ;TAB(C) "*"TAB<0) 

430 NEXT C S IF F==0 THEN 520 S ; 

520 NEXT R S ; S ; 8 ; S GOTO 120 



Figure 9. Snowflake Simulation 



100 


OPEN ' 


WORDS" TO :1, INPUT S ENDFILE: 1, 130 S INPUT :] 


L; 9999. 999, K 


130 


K-KEYU) 






140 


INPUT 


:1;INT(RND(1)^K+1),R$ S R-L£N (R$) 






160 


;" I'M 


THINKING OF A"R"-LETTER LORD. " 6 ; 


"UHAT DO YOU THINK IT IS"; 


180 


INPUT G$ S IF G$=R$ THEN 340 S G-LEN(G$) 


8 ON SGN (G-R) +2 GOTO 220, 270, 240 


220 


;"T00 


SHORT,"; S GOTO 250 






240 


;"T00 


LONG, " ; 






250 


; "TRY 


AGAIN"; S GOTO 180 






270 


FOR 1 = 


= 1 TO G S IF G$(:I,1)=R$(:I,1> THEN 300 S G$(:l 


J)-'- 1 


300 


NEXT 1 


S ;"YOU GOT THESE RIGHT:"; S ;G$ 


S GOTO 250 




340 


; H THAT'S RIGHT!"; S ;"UOULD YOU LIKE TO 


TRY ANOTHER' 


; S INPUT A$ 


370 


IF A$ 


(:1,1)="Y" THEN 140 S ; "THANKS FOR PLAYING THE 


GAME..." S ; 



Figure 10. Word Guessing Game (CP-V) 
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100 ; S ; 'EXPLAIN'; S INPUT A$ S IF A$(:1,1) = 'Y' THEN 1G0 

140 IF A$<:l,l)='y' THEN 1B0 S GOTO 310 

160 ;'The value of any variable typed as zero uill be calculated,' 

170 ; 'using the other three inputs to obtain the result. Type all' 

120 ; ' non-numer i c inputs as either YES or NO. If no variable is' 

ISO ;' input as zero, a schedule will be printed. If a yearly' 

200 ;' schedule is wanted, you may have the interest calculated for' 

210 ; ' the tax year or for any other 12-month period. Respond to' 

220 ; ' the question "MONTH STARTED" by typing the number (1 to 12)' 

230 ; ' f or the month of the first payment. To obtain a cumulative' 

240 ;' 12-month schedule, respond by typing the value 1. ' S ; 

260 * S-SCHEDULE 

270 * P=PRINCIPAL 

280 ••> ri=HONTHLY PAYMENT 

2S0 ■*•' I = INTEREST PER YEAR (e.g., B and 1/2 percent is G.5) 

300 ■••■ N= NUMBER OF MONTHS 

310 ; S ; "PRINCIPAL- ' ; S INPUT P S ; 'MONTHLY PAYMENTS; S INPUT M 

2B0 ; 'ANNUAL INTEREST RATE= ' ; S INPUT I S I = INT (I*lE4/12+.5) /1ES 

330 ; 'NO. OF MONTHS= ' ; S INPUT N S IF P=0 GOTO 570 S IF M=0 GOTO G20 

430 IF 1=0 GOTO B70 S IF N=0 GOTO 4B0 S GOTO 830 

4G0 Nl = (L0G(M)-L0G(M-P*I))/L0G(1 + I) S N=INT (N1 + .93) S ; 

4 SO ; USING S00,N 

500 :N0. OF MONTHS = UUU 

510 I2=M*N1-P S T1 = I2+P S ; S ;USING 550,I2,P,T1 

550 :TOT INT = UUUnU.UU TOT PRIN = UUUttU.nn TOTAL = ######.## 

530 GOTO 770 

570 P=m((l + I)' rf( N-l)/((l+II"*N*I) S ; S ;USING 600, P 

GOO : PR I NCI PAL - $#####.## 

G10 GOTO 770 

G20 M=INT((P*(1 + I)**N*I/ (O+I)**N-l)+.005)*100)/100 S ; 

640 ; USING 650, M 

650 : PAYMENT = %UUU.UU 

GGO GOTO 770 

670 I=23*(N*M-P)/ (N*P)/12 s F0R u=1 T0 5 

G30 1 1= ( (1 + 1) **n*i) / (0+1) **N-1) - (M/P> 

700 12= ( + 1) ** (2*N) - + 1) **N-I*N* (1+1) ** (N-l) ) / ( 0+1) **N-1) **2 

710 13=1-11/12 S 1 = 13 S NEXT U S ; S ;USING 760, I* 1200 

760 : ANNUAL INTEREST = Utt.MMt 

770 ; S ; 'SCHEDULE'; S INPUT S$ S IF S$(:1,1)-'Y' THEN 830 

810 IF S$(:l,l) = 'y' THEN 830 S GOTO 1410 

830 A=l, 12=0, 13=0, L=36,L1=0,L2=1, PI =0,P2=0,P3=0,P8=' MONTH', T1=0 

840 ; 'MONTH STARTED= ' ; S INPUT C S U=13-C S ; 'PRINTED MONTHLY'; 

S80 INPUT S$ S IF S$(:1,1)='Y' THEN 920 S IF S$(:l,l) = 'y' THEN 920 

910 P8=" YEAR',C=1 

320 ; 8 ; S ; USING BOO,P S ;USING G50,M S ;USING 760,1*1200 

970 ; USING 500, N S ; 

330 I1 = INT((P*I + .005)*100)/100 S P4=I1+P S IF P>M GOTO 1030 S M=P4 

1030 B=P4-M S 12=11+12,13=11 + 13 S P1=M-I1,P2=P1+P2,P3=P1+P3 

1030 T1=T1+M S IF Ll-0 GOTO 1120 S IF L1<=L GOTO 1170 S L=48 S ; S ; 

1120 ; S ;USING 1140, P8 

1140 '.ntitttttt INT PRIN TOT INT TOT PRIN TOTAL BALANCE 

1150 Ll=l S ; 

1170 IF A=N GOTO 1360 S IF B=0 GOTO 1360 S IF S$(:1,1) = 'Y' THEN 1240 

1200 IF S${:l,l)='y' THEN 1240 S IF A<U GOTO 1340 S U=U+12 

1230 GOTO 1310 

1240 IF L2=l GOTO 1280 S IF A<=U GOTO 1310 S U=U+12,C=1, 12=11, P2=P1 

1270 ; 

1280 ;'YEAR'L2 S ; S L2=L2+1 

1310 ;USING 1320, C, 13, P3, I2,P2,T1,B 

1320 -.nun nnnu.nn uunu.un nnnuu.nn unnnn.nu uunnu.uu numn.un 

1330 C=C+1,L1=L1+1,I3=0,P3=0 

1340 P-B,A=A+1 S GOTO 990 

13G0 ;USING 1320, C, 13, P3, I2,P2,T1,B S IF B>0 GOTO 1410 S ; 

1390 ; USING 1400, M 

1400 :LAST PAYMENT = SUUU.UU 

1410 END 



Figure 11. Loan Interest Calculation (CP-V) 
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100 Din X(1000), Y(1000), S(1000) S B1,B2, 133-0 S GOSUB 1170 

130 F,F1=0 S ;'How many generations per di splay 'TAB (0) S INPUT F2 

1G0 ;'How many points will you def ine'TAB (0) S INPUT Nl S N2=N1 

ISO ; 'Enter X,Y coordinates for'Nl' points' S FOR A=l TO Nl 

210 INPUT X(A),Y<A) S S(A)=1 S NEXT A S B3=N1, F=F+1, F1=F1+1 

250 GOSUB 800 

260 FOR J=l TO Nl S X=X (J) , Y=Y ( J) S GOSUB 610 

230 IF K>3 THEN 330 S IF K<2 THEN 330 S B1=B1+1 S GOTO 340 

330 S(J)=0, B2=B2+1 

340 FOR H=l TO 3 8 FOR N=l TO 3 S IF M*N=4 THEN 410 

370 X=X (J) +H-2, Y-Y (J) +N-2 S GOSUB G10 

330 IF K<>3 THEN 410 S GOSUB 730 

410 NEXT N S NEXT M S NEXT J 8 J=l S FOR 1=1 TO N2 

4G0 IF S(I)=0 THEM 480 S S(J)=1, X(JUX(I), Y(JNY(I), J=J+1 

480 NEXT I S N1,N2=J-1, F=F+1, F1=F1+1 S IF F1<F2 THEN 530 

510 GOSUB 800 

520 F1=0 

530 B1,B2,B3=0 S IF Q=0 THEN 5G0 S GOTO 2G0 

5G0 ; 'Al I cells are empty!' 

570 ;'Do you want to define a new conf igurat ion 'TAB (0) S INPUT C9 

530 IF C9='YES' THEN 130 S STOP 

G10 K=0 S FOR 1 = 1 TO Nl S X2=X(I), Y2=Y(I) S IF Y2oY THEN G60 

650 IF X2=X THEN 710 

G60 IF X2<X-1 THEN 710 S IF X2>X+1 THEN 710 S IF Y2<Y-1 THEN 710 

G30 IF Y2>Y+1 THEM 710 S K=K+1 

710 NEXT I S RETURN 

730 FOR Z=l TO N2 S IF XoX(Z) THEN 770 S IF YoY (Z) THEN 770 

760 GOTO 790 

770 NEXT Z S N2=N2+1, Y (N2) =Y, X (N2) =X, S(N2)=1, B3-B3+1 

730 RETURN 

800 R1,C1=1000, R2,C2=-R1 S ; S ; S ; 'Generat ion'F S FOR Nl TO Nl 

850 R=Y(I), C=X(I) S IF R>R1 THEN 880 8 R1«R 

880 IF R<R2 THEN 300 S R2=R 

300 IF C>C1 THEN 920 S C1=C 

320 IF C<C2 THEN 940 S C2=C 

340 NEXT I S C3=2 S IF (C2-C1) <35 THEN 990 S C3=l 

330 ; 'Horizontal compression in display!' 

330 IF (C2-C1)<70 THEN 1020 S C4= (C1+C2) /2, Cl=C4-35, C2=C4+35 

1010 ; 'Horizontal display overflow!' 

1020 FOR R=R1 TO R2 S FOR C=C1 TO C2 S FOR 1=1 TO Nl 

1050 IF Y(I)oR THEN 1080 S IF X(I)oC THEN 1080 

1070 ;TAB((C-C1+1)*C3) '*'TAB(0) 

1080 NEXT I S NEXT C S ; S NEXT R S Q-B1+B3 

1130 ; USING 1140, B1,B2,B3,B1+B3 

1140 \UUU Survived, UttU Died, UUU Born, UUU Total 

1150 B1,B2,B3=0 S RETURN 

1170 ; S RETURN 



Figure 12. Cellular Automata 



100 Dill A (15, 15) 8 ; 'TYPE AN ODD NUMBER FROM 3 TO 15'; 

120 INPUT N S IF M<3 THEN 380 S IF N>1S THEN 120 

150 IF INT(N/2)=N/2 THEN 120 S RO=INT (N+l+N/2) , CO=INT (N-N/2) 

170 FOR R=l TO N S FOR C=l TO N S R1=R0+R+N-C, RNR1-INT (Rl/N) *N 

200 C1=C0+R+C, C1-€1-INT(C1/N)*N S IF R1>0 THEN 230 S Rl-N 

230 IF C1>0 THEN 250 S Cl-N 

250 A{R1,C1)-C+R*M-N S NEXT C S NEXT R S ; S FOR 1-1 TO N 

300 FOR J-l TO N S ;TAB(4*J) ,A(I,J) ' 'TAB(O) S NEXT J S ; S ; 

350 NEXT I S ; S GOTO 120 

380 END 



Figure 13. Magic Squares 
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100 Did KU5) S HAT K=ZER 

120 ; 'THIS PR0GRAT1 LISTS THE UAYS IN WHICH POSITIVE INTEGERS CAN BE' 

120 ; 'SUTT1ED TO OBTAIN ANY INTEGER FROM 2 THROUGH 15' 

140 ; 'PLEASE TYPE AN INTEGER FROfl 2 TO 15'; S INPUT N S ; 

170 K(1)=N, L=2, f1=0 

ISO IF K(l)=l THEN 220 S K(1)=K(1)-1, K (2) -K (2) +1 S GOSUB 340 

210 GOTO 180 

220 FOR J=2 TO L S IF K ( J) <>1 THEN 2G0 S NEXT J S GOTO 310 

230 KU>=K(J)-1, K(J)=1, K(J+1)=K(J+1)+1 S IF J<L THEN 290 S L=L+1 

230 GOSUB 340 

200 GOTO 180 

210 ; S ; 'TOTAL NUMBER OF UAYS TO SUIT NT IS'2** (N-l) -1 S END 

240 *SUBR TO PRINT SUflHATION 

330 FOR 1 = 1 TO L S ;K(I) ' 'TAB(O) S IF I=L THEN 400 S ; ' +'TAB(0) 

330 NEXT I 

400 ; ' ='NS RETURN 



Figure 14. Arithmetic Combinations 
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INDEX 



Note: For each entry in this index, the number of the most significant page is listed first. Any pages thereafter are listed in 
numerical sequence. 



! prompt, 41 
# symbol, 12 



ABS function, 58 

absolute dimensions, 33 

account, 26 

ACCOUNT command, 37 

aconst, 8, 5, 9, 20, 24, 26, 29 

ACS function, 59 

addition, 1 

advanced features, 19 

alphanumeric constant, 8,5,9,22 

argument, 8, 24 

arithmetic operators, 8 

array 

addition and subtraction, 35 

dimensioning, 20,32-35 

elements, 41 

name, 35, 36 
ASN function, 59 
assignment of values, 9 
assignment statement, 1 
asterisk, 2,12,13, 15-17 
ATN function, 58 



B 



BASIC command, 41 

BASIC concordance program, 65 

batch mode, 43 

BCD input, 27 

BCD output, 28 

binary file format, 62 

binary input, 27 

binary output, 27 

blank line, 3 

blanks, 5,4, 11 

branches, 10 

BREAK key, 18,28,41,42,61 

BYE command, 42 



CATALOG command, 37 
CHAIN LINK statement, 32 
CHAIN statement, 32 
CHANGE statement, 25 
CLEAR command, 39,6 
CLOSE statement, 28 
coding sheet, 43 
coefficient matrix, 36 



colon, 12,21,26 
comma, 1 1,2-4, 16 
commentary, 17 
condition operators, 10 
conditional branching, 10 
consecutive operators, 8 
continuation of PRINT statements, 1 1 
conventions, 7 
COS function, 58 
COT function, 59 
CSC function, 59 
current dimensions, 33-36 



D 



data files, 62 

DATA statement, 15,9,25 

DAY function, 58 

DCB assignments, 64 

debugging, 61,41 

decimal point, 12,7,9,13 

decrement, 16 

DEF statement, 24 

default name for the runfile, 41 

defined functions, 24 

DEG function, 59 

DELETE command, 38 

desk calculator mode, 61, 1,2 

determinant calculation, 36 

DIM statement, 20, 33 

dimension, 19,20,33 

dimensioning a string array, 21 

direct statement, 61 

division, 2 

dollar sign, 9,20-22 

double asterisk, 2,8, 15, 16,29-31 

dummy argument, 24 



EBCDIC 

codes, 67 

conversion, 25 
edit mode, 60,61 
editing area, 5 
empty text string, 4 
END statement, 18 
ENDFILE statement, 28 
ENTER BASIC command, 7,40 
equals sign, 9 
error messages, 47 
errors, 5 
ESC key, 41,42 
exclamation points, 13 



Index 



77 



Note: For each entry in this index, the number of the most significant page is listed first. Any pages thereafter are listed in 
numerical sequence. 



EXECUTE command, 41 
execution of a program, 40 
EXP function, 58,4 
explicit string expressions, 22 
exponentiation, 2 
expression, 8, 12 
extended precision, 40 
EXTRACT command, 38 



F 



FAST command, 40 
field shift, 11,12 
file/FILE 

access, 26 

command, 39 

definition, 26 

identification, 24,26 

input, 29 

names, 5,6 

output, 30 

positioning, 27 
fixed-point notation, 7 
floating-point notation, 7,8,13 
FOR statement, 16,2 
format characters, 12 
function, 8 



GET statement, 28 
GOSUB statement, 25 
GOTO ... ON statement, 10 
GOTO statement, 10 



H 

HCS function, 59 
HSN function, 59 
HTN function, 59 



I 



I/O assignments, 64 

I/O flushing, 31 

I/O stream, 26-30,64 

identification, program, 17 

identity matrix, 34,36 

IF ... THEN statement, 10 

IF statement, 4 

Image statement, 12, 13 

implicit dimensions, 20 

implicit string expression, 22 

increment, 16 

indexed variable, 2,3 

initial value, 16 



INPUT statement, 15,4, 16,23,29 
input values, 7 
INT function, 58,8 
intrinsic functions, 58,8 



key, 26-30 

KEY function, 59 

key interval, 30 



L 



largest key value, 26 
LEN function, 22,59 
LET statement, 9, 1-3 
letter E, 13 
LGT function, 58 
limit value, 16 
line numbers, 7, 2 
LIST command, 38 
literal text string, 4 
LOAD command, 37 
loading a program, 6 
LOG function, 58 
log-on request, 1 
loop, 16, 3 
loop nesting, 17 
lower case characters, 31 
LTW function, 59 



M 



MAT GET statement, 33 
MAT INPUT statement, 33 
MAT PRINT statement, 33 
MAT PUT statement, 33 
MAT READ statement, 34 
MAT SIZE statement, 34 
matrix 

assignment functions, 34,35 

definition, 19 

inversion, 36 

operations, 32,33 
MAX function, 58 
maximum string length, 40 
messages to the user, 5 
MIN function, 58 
minus sign, 1,3,4,7,12 
multiplication, 2 
multistatement capability, 19 



N 

NAME command, 39 
names, 1 
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nested loops, 17 
new line, 5 
NEXT statement, 16,2 
nonexistent key, 29 
nu I l/NULL 

command, 41 

records, 30 

string, 12 
numeric 

array, 20,21 

matrix, 20 

vector, 20 







OFF command, 42 

ON . . . GOTO statement, 10 

OPEN statement, 27 

operating mode, 60 

operator, 8 

order of execution, 110 

out-of-data condition, 28 

output 

format, 1 1 

format characters, 1 1 

numbers, 7 

precision, 7 



packed format, 11,34 
page length, 13 
PAGE statement, 13 
parallel assignments, 9 
parentheses, 2, 8 
password/PASSWORD 

command, 37 

definition, 26 
PAUSE statement, 18 
period, 7 
plus sign, 1, 8, 12 
PRC function, 7,58 
PRINT 

statement, 11,3,7,12,30 

width, 40 
printing text, 12 

PRINTUSING statement, 12, 13, 30 
PROCEED command, 42,61 
program modification, 5 
prompt, 4 

punctuation, 4, 11, 12,30 
PUT statement, 29 



question mark, 4, 15 
quotation marks, 11 
quotes, 4, 5, 8 



R 

RAD function, 59 

READ statement, 15 

regular format, 11,34 

REM statement, 17 

RENUMBER command, 38 

rereading data, 25 

residual data, 30,27 

RESTORE statement, 25 

resuming execution following a BREAK, 61 

RETURN statement, 25 

RND function, 58 

rounding, 7, 17 

RUN command, 40,6 

runfile, 41 



safe mode, 40 

sample programs, 72 

SAVE ON command, 39,5 

SAVE OVER command, 39,5 

scalar multiplication, 35 

SEC function, 59 

semicolon, 3,4,11,26,30,34 

separator, 4 

sequence of operations, 8 

sequential files, 26 

serial assignments, 9 

SET command, 40 

SGN function, 58 

simple constant, 7 

simple variable, 8,9,33,41 

simultaneous equations, 36 

SIN function, 58 

single asterisk, 15, 16,29,30 

slash, 2 

spacing between fields, 11 

SQR function, 58 

STATUS command, 41 

STOP statement, 18 

STR function, 59 

stream number, 26-29 

string 

array, 20,21 

array elements, 41 

comparison, 23 

INPUT mode, 23 

input/output, 23 

literal, 8 

matrix, 20,9 

scalar, 9,20,21,41 

variables, 22 

vector, 20,9 
strings of excess length, 9 
subroutine, 25 
subscript, 20, 33 
subscripted variable, 19 
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substring, 21 
subtraction, 1 
symbolic names, 1 
SYSTEM command, 42 



U 

unused fields, 16 
up-arrow, 2, 8 
update mode, 27,28 



TAB function, 4, 11,58 

TAB (0), 11 

TAN function, 58 

terminal, 1,31 

text 

arrays, 34 

editing area, 39,6 

string in a PRINT statement, 12 
TF1LE, 27,37 
TIM function, 58 
time limit, 40 
trailing zeros, 13 



VAL function, 59,22 
variable, 1 
vector, 19,35,36 
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WEAVE command, 38 
WIDTH command, 40, 13 



YER function, 58 
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